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IDENTIFICATION 


PRODUCT CODE: AC-T118A-MC 

PRODUCT NAME: CZRNHAQ RM80 DUAL PORT TEST, PT 1 
PRODUCT DATE: APRIL 1, 1982 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE __ CONSTRU AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
1307 "nd OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1982 DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THE RM8O DUAL PORT LOGIC TEST PERFORMS A SERIES OF 

TESTS WHICH VERIFY THAT THE RM80 DUAL PORT LOGIC 

IS FUNCTIONING PROPERLY. ONLY THE CONTROL LOGIC IS TESTED 
BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 

1S NOT TESTED BY THIS PROGRAM. 


BOTH PORTS OF etek DRIVE ARE CABLED TO THE SAME MASSBUS BY 
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 

PORT LOGIC TO BE TESTED FROM ONE PDP-11 AND RH70. 

THIS PROGRAM IS THE FIRST PART OF THE DUAL PORT OPTION 


LOGIC TEST. THE SECOND PART OF THE TEST PERFORMS 
MANUAL INTERVENTION TESTS. 


REQUIREMENTS 


EQUIPMENT 
PDP=11/70 PROCESSOR 
20K M Y 
adn OR KW11-P CLOCK 
RMINAL 
ni70 CONT atte + 
RM80 DISK DRIVE 
RM DUAL PORT rest CABLE (P/N: 7010507-02) 
PREREQUISITE PROGRAMS 
RM80 DISKLESS TEST, PART 1 & 2 
RM80 FUNCTIONAL TEST, PART 1, 2 & 3 


THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM 
EACH PORT (A & B). 


OTHER PROGRAMS 


A. THE OPERATION OF THE ‘PORT SELECT’ SWITCH IS TESTED 
BY THE SECOND PART OF THE DUAL PORT LOGIC TEST. 


B. DYNAMIC OPERATION OF THE DUAL PORT OPTION IS 
TESTED BY THE RM80 PERFORMANCE EXERCISER PROGRAM. 


LOADING PROCEDURES 

THE PROGRAM MAY BE LOADED | THE ABSOLUTE PAPER TAPE 
LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA 
USING THE ASSOCIATED ‘XXDP* LOADER. THE PROGRAM MAY NOT 
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BE INCLUDED IN AN ‘XXDP* CHAIN. 


STARTING PROCEDURES 


STARTING ADDRESSES 


THE NORMAL eof tie ADDRESS OF THE PROGRAM IS LOCATION 
200 (8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 
TO SELECT (OR RESELECT) THE ADDRESS OF THE DRIVE TO BE 


- THE RESTART ADDRESS IS LOCATION 204 (8). THE PROGRAM WILL 


USE THE CURRENT DRIVE ADDRESS. 


THE PROGRAM CAN BE STARTED AT LOCATION 210 (8) TO ALLOW THE 
ADDRESS OF THE RH70 TO BE CHANGED. 


UNIBUS & VECTOR ADDRESSES 
THE PROGRAM ASSUMES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES. 
oa ADDRESSES MAY BE CHANGED PRIOR TO STARTING THE PROGRAM 
FROM ANY OF THE STARTING ADDRESSES. 


MEMORY 


bt ss ss ee 


Mororonoen = 
Mo SSB SRR 


SALNMVOCOASN 


LOCATION CONTENTS FUNCTION 
177560 wy KEYBOARD © » REG 
177562 KEYBOARD auf FER REG 
177564 ITY PRINTER STATUS REG 
177566 TTY PRINTER BUFFER REG 
172540 KW11-P STATUS R 
172542 KW11-P COUNTER BUFFER 
10 KW11-P VECTOR ADDRESS 
177546 KW1i1-L STATUS REGISTER 
10 KWi1-L VECTOR ADDRESS 


OPERATOR ACTION 


ed ed ed td = 2d od od td 
SRLRSRAVLSS 


—— 2 
fwnro 


CONNECT The wat PORT TEST CABLE BETWEEN BUS A 

& BUS B-ON THE DRIVE BEING TESTED. (SEE SECTIGN 5.4) 
LOAD THE PROGRAM oe oer ink IN THE PROCESSOR CONTROLLING 
THE MASSBUS USED FOR TING. 

SWITCH THE ‘PORT SRLECT® SWITCH ON THE DRIVE TO BE 

TESTED TO THE ‘A/B’ POSITION. CYCLE THE DRIVE UP. 

LOAD THE APPROPIATE STARTING ADDRESS (200(8) 0 R 210(8)) 


REFER TO SECTION 5.2). 

PRESS START. 

ENTER THE DRIVE NUMBER. 

on 0 a eg OF THE TEST TO BE RUN. ("CARRIAGE RETURN* 


ALL TESTS.) 
THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 
FROM LOCATION 205. 





‘ eye 
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15 
i 
3 5. OPERATING PROCEDURES 
20 
$3 5.1 "SOFTWARE* SWITCH REGISTER 
23 IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 
24 THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
25 NOT PRESENT AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. 
26 "SOFTWARE’ SWITCH REGISTER IS LOCATED AT LOCATION 176 
27 SETTINGS OF THE ‘SOFTWARE’ SusITCHES ARE CONTROLLED THROUGH A KEYBOARD 
28 ROUTINE WHICH IS CALLED BY TYPING A ‘CONTR : L 
29 RECOGNIZE TH ONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM 
30 IS AT A HIGHER PRIORITY PROCESSING AN RM8O INTERRUPT. THE 
31 *SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
$8 TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


*SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., "RUBOUT® AND 
"CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE’ SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1°S_IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE ‘SOFTWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 

5.2 OPERATIONAL SWITCH SETTINGS 


WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 


THE SWITCH SETTINGS ARE: 


DAV Es E> ES ES ES ES BY ESE AAA 


AXAARAAARAADU 
VASSISALAVLISSSVSGLUNASSRHNSARGN=—SSON 


SW<15>=1 HALT ON ERROR 

SW<14>=1 LOOP ON TEST 

SW<13>=1 INHIBIT ERROR TYPEOUTS 

SW<71>=1 INHIBIT TEST ITERATIONS 
SW<10>=1 RING TTY BELL ON ERROR 

SW<09>=1 LOOP ON ERROR 


5.3 TEST SELECTION 
INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO THE “ENTER 
TEST NUMBER: ' AGE. ANY VALID TEST NUMBER CAN 
Joplin pan ee MUST BE TERMINATED BY A CARRIAGE 


RIA 
(CR). THE LOOP ON TEST SWITCH, SW<14>, MUST BE SET 
TO ALLOW CONTINUOUS EXECUTION OF THE SELECiED TEST. 


TO RUN ALL TESTS IN SEQUENCE, ENTER EITHER A ‘O' FOLLOWED 
BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 


eh ek ek me ek kk kk kk kk a kh kh dh hh hd 
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CHARACTER ENTERED. SUCC 


THE P 
LETED BY THE RO KEY WILL BE 
T BY ‘\" FROM THE CHARACTERS 
ENTERED BY OTHE OPERATOR. 


THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A 
"CONTROL U* . 


TEST CABLE CONNECTION 


TO TEST THE RM80 DUAL PORT OPTION WITH THIS PROGRAM, 

A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 

P/N: 7010507-02). THE TEST CABLE es MASSBUS A_& MASSBUS 

B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO 
THAT BIT 0 OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED. 


WITH THE DRIVE CABLE CONNECTED TO 3 RM80 UNDER TEST, 

THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 
OF THE DRIVE of ki RESPOND TO A DIFFERENT MASSBUS ADDRESS. 
THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S 
ADDRESS PLUG. 


THE PROGRAM wi yng THE oun aahed + ADDRESSES OF BOTH 
PORTS. (ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE 
OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 


OTT ITLL titi tititiiiiiii iii iit it TDD 
* ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS * 
* IN CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE * 
* POWERED DOWN. * 


RARER EEEREREREREREREEEEEEREREREERREEREEERRERERERREEK 


WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE arrearin 

BITS FOR PORTS A & B ARE ASSERTED IN THE SAME BIT POSITION 

WHEN ‘RMAS’ (ATTENTION SUMMARY REGISTER) IS — THE ATTENTION 
BIT POSITION IS ag erg BY eo a tha bh OF THE DRIVE 


THE ATTENTION BIT T APPEARS F Ay DRI ve IS THE 
INCLUSIV “, *OR' OF tH He PORT A_& P B ATTENTION vith BECAUSE 
THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN 


OF 
"RMDS'’ (DRIVE STATUS REGISTER) TO Bs TERMI THE STATE 
OF THE SELECTED PORTS'S ATTENTION BIT. 


ERRORS 


WHEN THE PROGRAM ENCOUNTERS Af RROR, THE ERROR ROUTINE IS 





— 








H 
CZRNHAO RM8O DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 3-4 


7.2 


7.3 


7.4 


7.5 


7.6 


CALLED AND IF SW<13> IS NOT SET, THE ERROR MESSAGE PERTAINING 
10 toUINeS BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 


A. AN ERROR MESSAGE 

B. A DATA HEADER LINE 

C. A DATA LINE CONTAINING: 
THE TEST 


ST_NUMB 
THE "ee eee COUNTER VALUE) WHERE THE ERROR 


CALL _WAS MADE 
. CONTENTS OF THE APPROPIATE REGISTERS 


RESTRICTIONS 


TO RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A KW11-P 
OR A KWi1=-L CLOCK. ADDITIONALLY, THE DRIVE UNDER TEST 
MUST HAVE THE DUAL PORT TEST CABLE CONNECTED. 


LIMITATIONS 

THIS PROGRAM DOES NOT TEST DATA TRANSFERS eo EITHER 
PORT, DOES NOT TEST TH 4 a, YNAMIC oie tos OF THE DUAL 
PORT OPTION, AND DOES NOT TEST THE UNLOAD COMMAND 

OR THE OPERATION OF THE oPORT SELECT SWITCH ON THE DRIVE. 
(REFER TO PARAGRAPH 2.2 & 2.3) 

EXECUTION TIME 


PASS 1 OF THE PROGRAM TAKES ABOUT 25 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 2.3 MINUTES. 


REQUIRED TESTS 

IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE, THE 

OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 

TESTS ARE RUN: 

A. TEST 2 AND TEST 3. THESE TESTS DETERMINE AND STORE FOR 
LATER USE THE TIMEOUT NON-SHOT VALUE MEASURED THROUGH 
EACH PORT. 

DISK SURFACE USAGE 

THIS DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE 

a gg MUST BE CYCLED UP AND ON-LINE FOR THE DIAGNOSTIC To BE 

LOOP ON ERROR OPTION 


IF SW<09> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 
UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING. 


—— eH 
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286 ; BECAUSE THE PROGRAM MUST RESET THE RM80 TO A KNOWN STATE 
287 BEFORE LOOPING, ON THE ERROR, THE TEST FOR SW<09> IS PERFORMED 

288 AT THE END OF THE TEST = NOT AT THE POINT WHERE THE ERROR 
289 WAS DETECTED. 
290 | 
291 
292 

293 8. TEST DESCRIPTIONS 

4 Se Se eee awe ene wee = 

399 8.1 METHOD USED TO VERIFY THAT THE DRIVE IS IN NEUTRAL 

298 THE PROGRAM DETERMINES THAT THE DRIVE IS IN NEUTRAL BY CHECKING 

299 THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH 

300 BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 

301 CATA’ & 'VV") AND VERIFIES THAT CORRECT STATUS IS READ 

302 THROUGH BOTH PORTS. (THE CORRECT STATUS IS *. "PGM’. 

303 ") EITHER PORT SEES ALL ZEROS FROM 

304 RMDS , "THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL 

305 fHAT ANY BIT DESCREPANCY BETWEEN PORTS INDICATES A 

306 FAILURE IN THE PATH FOR THAT BIT. 

308 ADDITIONALLY, THE PORT REQUEST FLOPS (RQA, ROB) OF THE 

309 MAINTENANCE REGISTER ARE TESTED, AND SHOULD BE ZERO IF 

310 THE DRIVE IS IN NEUTRAL. 

312 8.2 METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 

314 PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SEIZED BY 

315 CHECKING THE DRIVE STATUS REGISTER (RMDS) 

316 THE SEIZING PORT AND VERIFING THAT CORRECT otarus 1S 

317 N. WHEN R § READ THROUGH THE OPPOSI , 

318 7EROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST, OF .: 

319 CORRECT STATUS THROUGH THE SEIZING PORT AND ZEROS THROUGH 

320 THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DRIVE 

321 HAS BEEN SEIZED BY THE SPECIFIED PORT. 

323 8.3 METHOD USED TO VERIFY PCRT REQUESTS 

325 THE PORT REQUEST FLOPS IN THE MAINTENANCE REGISTER ARE 

326 TESTED TO DETERMINE IF 

328 . A DRIVE 1S IN NEUTRAL, I. Es, ROA AND RQB ARE ZERO; 

329 * A DRIVE IS SEIZED, 1... ROA OR ROB I 

330 * A PORT REQUEST IS SET ofute THE DRIVE IS SEIZED TO THE 

331 ALTERNATE PORT, I.£., RQA AND ROB ARE ONE. 

333 . 

334 TEST 1 NEUTRAL ACCESS TEST 

336 VERIFY THAT THE DRIVE 1S ACCESSIBLE TO BOTH PORTS 

338 A. SELECT DRIVE, VERIFY, THAT THE DRIVE IS PRESENT, THAT THE | 
339 DRIVE TSA DUAL P EppORT RMBO, THA i THE DRIVE IS ONLINE (RMDS HAS 


A TS SET), AND THE THE DRIVE SERIAL 
341 NUMBER READ THROUGH’BOTH PORTS IS THE SAME. 








4 
345 


SEE 
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B. THE TEST IS REPEATED THROUGH BOTH PORTS 


TEST 2 PORT ‘A* SEIZE/TIMEOUT TEST 


VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER. 


A. WRITE 0'S INTO _RMDA THROUGH PORT ‘A'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 


B. READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT 'B'; 
VERIFY THAT O'S ARE READ FROM EACH REGISTER. 


C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 
TEST 3. FORT "B® SEIZE/TIMEOUT TEST 


VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER. 


A. WRITE 0°S INTO RMDA THROUGH PORT 'B'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 


B. READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT ‘A’; 
VERIFY THAT 0'S ARE READ FROM EACH REGISTER. 


C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 
TEST 4 PORT ‘A* SEIZE/RELEASE TEST 
TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
B. SET VOLUME VALID AND CLEAR ANY ERROR 


C. ISSUE A RELEASE COMMAND THROUGH PORT'A'. VERIFY THAT THE DRIVE 
cee TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 


TEST 5 PORT *B* SEIZE/RELEASE TEST 

TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 
B. SET VOLUME VALID AND CLEAR ANY ERROR 


a 


=o 


om 





kK 1 
CZRNHAO RM8O DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 3-7 SEQ 0010 | C. 


SSS Sra ee —_—_—-- oor 


C. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE | 

Site TO NEUTRAL, AND THAT NO ERRORS mn INDICATED BY THE 

| 

| 

TEST 6 PORT ‘A* NEUTRAL/RELEASE TEST | 
TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 


A. ISSUE A RELEASE COMMAND THROUGH PORT ‘A* WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 


TEST 7 PORT ‘B’ NEUTRAL/RELEASE TEST 
TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
A. ISSUE A RELEASE COMMAND THROUGH PORT 'B' WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
TEST 10 PORT ‘A’ RELEASE INTERFERENCE TEST 


VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 


A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 
B. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. 
C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘B’. 
D. ot  ¥- afta habe THROUGH PORT ‘B'. VERIFY THAT THE DRIVE SWITCHED 
RELEASE THE DRIVE THROUGH PORT ‘A‘. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 11 PORT ‘B® RELEASE INTERFERENCE TEST 


VERIFY THAT A COMMAND ISSUED BY oe supe IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE CTHER PORT 


A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0'S INTO RMDS. 

B. ISSUE A RELEASE COMMAND THROUGH PORT ‘B’. 

C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘A’. 

D. REL CAS pq puis THROUGH PORT ‘A’. VERIFY THAT THE DRIVE SWITCHED 
RELEASE THE DRIVE THROUGH PORT 'B*. VERIFY THAT THE DRIVE RETURNED 


TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. | 
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457 

$28 TEST 12 PORT 'A® RELEASE W/ERRORS TEST 

460 VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
<e3 BITS ARE SET IN THE DRIVE. 

rr A. SEIZE THE DRIVE THROUGH PORT ‘A‘ BY WRITING 0'S INTO RMDS. 

rr #4 B. WRITE 1°S INTO RMER1 THROUGH PORT ‘A’. 

467 C. i A RELEASE COMMAND THROUGH PORT ‘A‘. VERIFY THAi THE ‘GO' 
468 BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
‘$3 THAT RMER1 HAS NOT BEEN CLEARED. 

rial " D. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ‘A’. 
473 E. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
ret : RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

476 

rie TEST 13 PORT ‘B® RELEASE W/ERRORS TEST 

479 VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
on BITS ARE SET IN THE DRIVE. 

oa A. SEIZE THE DRIVE THROUGH PORT ‘B' BY WRITING 0°S INTO RMDS. 

rt B. WRITE 1°S INTO RMER7 THROUGH PORT ‘B’. 

486 C. ISSUE om ety COMMAND Peates PORT ‘B'. VERIFY THAT THE °GO* 
487 BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
re THAT RMERT HAS NOT BEEN CLEARED. 

rts D. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ‘B’. 
492 E. ISSUE A RELEASE COMMAND THROUGH PORT ‘B’. VERIFY THAT THE DRIVE 
rh RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

495 ' 

3 TEST 14 PORT ‘A* SEIZE AND CLEAR TEST : 

498 VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
P44 PORT TO RELEASE THE DRIVE. 

501 A. SEIZE THE DRIVE BY WRITING 0°S INTO RMDS THROUGH PORT ‘A’. 

ane < VERIFY THAT THE DRIVE HAS BEN SEIZED. 

504 B. ISSUE A DRIVE CLEAR THROUGH PORT °A* AND VERIFY THAT THE DRIVE 
an? DOES NOT RETURN TO NEUTRAL. 

507 C. ISSUE A MASSBUS CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT 
oe THE DRIVE DOES NOT RETURN TO NEUTRAL. 

510 D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 

21) ; RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

513 


SEQ 0011 


ee | 


ao 
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TEST 15 PORT ‘B® SEIZE AND CLEAR TEST 


VERIFY THAT A_MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


A. SEIZE THE DRIVE 8Y WRITING 0°S INTO RMDS THROUGH PORT ‘B’. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


B. ISSUE A DRIVE CLEAR THROUGH PORT 'B' AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


C. ISSUE A MASSBUS CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT 
THE DRIVE DOES NOT RETURN TO NEUTRAL. 


D. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TES) 16 SEIZE ‘A* BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
IF THE DRIVE IS IN NEUTRAL. 


A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT ‘A‘; VERIFY THAT 
THE DRIVE IS SEIZED. 


B. ISSUE A RELEASE COMMAND THROUGH PORT 'A*; VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 17 SEIZE *B* BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
IF THE DRIVE IS IN NEUTRAL. 


A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT "B'; VERIFY THAT 
THE DRIVE IS SEIZED. 


B. ISSUE A RELEASE COMMAND THROUGH PORT 'B'; VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 20 PORT ‘A’ INHIBIT SEIZE BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 
REQUEST’ IF THE DRIVE IS SEIZED. 


A. SEIZE THE DRIVE THROUGH PORT ‘B* BY READING RMCS1. VERIFY THAT 
THE DRIVE KAS BEEN SEIZED. 


B. ox” hes CONTROL REGISTER FROM PORT ‘A‘. VERIFY THAT “DVA* IS NOT 


C. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


————_——___-—--—— 


SEQ 0012 


| 
' 


ao 
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571 TEST 21 PORT 'B' INHIBIT ~“IZE BY RMCS1 TEST 
573 VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 
20 REQUEST’ IF THE DRIVE IS SEIZED. 
576 A. SEIZE THE DRIVE THROUGH PORT 'A'’ BY READING RMCS1. VERIFY THAT 
O77 THE DRIVE HAS BEEN SEIZED. 
279 B. READ THE CONTROL REGISTER FROM PORT 'B’. VERIFY THAT "DVA' IS NOT 
581 
582 C. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
583 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
585 
386 TEST 22 SEIZE BY RMAS TEST 
588 TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
589 (RMAS) SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 
290 PORT: 
592 A. WRITE THE APPROPRIATE DRIVE Bit INTO RMAS; VERIFY THAT THE DRIVE 
593 IS SEIZED. 
595 B. ISSUE A RELEASE COMMAND THROUGH THE seizihc pony, VERIFY THAT THE 
596 DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 
597 OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 
599 . 
600 TEST 23 INHIBIT SEIZE BY RMAS TEST 
602 VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A ‘ZERO' IS WRITTEN INTO 
605 THE DRIVE'S ATTENTION BIT. 
605 A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE 

600 BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER. 
608 B. VERIFY THAT THE DRIVE IS STILL<IN NEUTRAL. 
610 “i 
611 TEST 24 SET PORT ‘A* REQUEST TEST 
613 VERIFY THAT wiITING A DRIVE REGISTER SETS ‘PORT REQUEST’ WHEN THE 
614 DRIVE IS SEIZED BY THE OTHER PORT. 
616 A. .SETZE THE DRIVE THROUGH PORT ‘B' BY WRITING O'S INTO RMDS. 
618 B. WRITE O'S INTO RMDS FROM PORT ‘A’: VERIFY THAT THE DRIVE IS STILL 
619 ". SEIZED BY PORT 'B’. 
621 C. ISSUE A RELEASE COMMAND FROM PORT 'B' AND VERIFY THAT THE DRIVE 
622 SWITCHED TO PORT ‘A’. VERIFY THAT THE ATTEAT TON BIT IS SET FOR 
623 PORT ‘A’ AND IS NOT SET FOR PORT ‘B’. 
ose ISSUE A RELEASE COMMAND THROUGH PORT ‘A’ AND VERIFY THAT THE DRIVE 
626 RETURNED TO NEUTRAL AND. THAT NEITHER ATTENTION BIT IS SET. 


B 
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TEST 25 SET PORT "B® REQUEST TEST 


VERIFY THAT WRITING A DRIVE REGISTER SETS ‘PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 


A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 


B. WRITE 0°S INTO “if = PORT 'B'; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT ° 


ISSUE _A eu COMMAND FROM PORT °4* AND VERIFY THAT THE DRIVE 
SWITCHED TO PORT *B’. VERIFY THAT THE ATTENTION BIT IS SET FOR 
BORT "B' AND IS NOT SET FOR PORT ‘A’. 


ISSUE A RELEASE COMMAND THROUGH PORT ‘B' AND VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


o- 
e 


TEST 26 TEST RESET ATTENTION ‘A*® BY DRIVE CLEAR 


VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 


A. a a PORT 'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 


B. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
C. ISSUE A DRIVE CLEAR COMMAND. 
D. a in THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE ATTENTION 
BIT FOR PORT ‘A’ HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
‘B' IS STILL set. 
TEST 27 TEST RESET ATTENTION ‘B* BY DRIVE CLEAR 


VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 


A. a PORT'S ATTENTION BIT. VERIFY THAT 30TH ATTENTION BITS 


B. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 
C. ISSUE A DRIVE CLEAR COMMAND. 
. RELEASE THE DRIVE THROUGH PORT "B'. VERIFY THAT THE ATTENTION 


BIT FOR PORT 'B’ HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
*A' IS STILL SET. 


_—] 


TEST 30 RESET ATTENTION 'A‘ BY GO TEST 
VERIFY THAT THE ‘GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 





2 
CZRNHA RM80 DUA! PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 3-15 





SEIZING PORT. 


A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET. 


B. SEIZE THE DRIVE THROUGH PORT ‘A' BY WRITING 0°S 
INTO RMDS. 


C. ISSUE A NOP COMMAND. 
D. as 7 THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE 
TTENTION BIT FOR PORT ‘A’ IS RESET, AND THE 
ATTENTION BIT FOR PORT *B* IS STILL SET. 
TEST 31 RESET ATTENTION ‘B* BY GO TEST 


VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 


SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET. 


B. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0'S 
INTO RMDS. 


s 


C. ISSUE A NOP COMMAND. 


D. ae THE te ar PORT °B’. VERIFY THAT THE 
TTENTION BIT FOR T 'B' IS RESET, AND THE 
ATTENTION BIT FOR PORT ‘A’ IS STIL SET. 


TEST 32 TEST RESET ATTENTION ‘A’ & ‘B® BY MASSBUS INIT 


VERIFY THAT MASSBUS CLEAR RESETS BOTH PORT'S ATTENTION BITS WHEN THE 
DRIVE IS IN NEUTRAL. 


A, SET THE ATTENTION BITS FOR BOTH PORTS. 
B. VERIFY THAT THE DRIVE IS IN NEUTRAL. 
. 3 ° MASSBUS INIT. VERIFY THAT BOTH ATTENTION BITS HAVE 


- 


TEST 33 RESET ATTENTION ‘A’ & ‘B' BY RMAS 


VERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE 
APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER. 


A. SET THE ATTENTION BITS FOR BOTH PORTS. 
B. VERIFY THE DRIVE IS IN NEUTRAL. 


C. WRITE THE DRIVE'S ATTENTION BIT IN RMAS. VERIFY 
THAT BOTH ATTENTION BITS ARt RESET AS SEEN BY RMAS. 
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TEST 34 PORT ‘A* ALTERNATE ATTENTION PATH TEST 
VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
A. SET THE ATTENTION BIT FOR PORT ‘A’. 
B. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING O'S INTO RMDS. 
C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET. 
TEST 35 PORT 'B* ALTERNATE ATTENTION PATH TEST 
VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
A. SET THE ATTENTION BIT FOR PORT ‘B’. 
B. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 


. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET. 


oO 


TEST 36 SET ATTENTION ‘A* BY COMMMAND TEST 
TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND. 


A. ISSUE A OFFSET COMMAND THROUGH PORT ‘A’. 


B. WAIT FOR THE OFFSET COMMAND TO COMPLETE (‘DRY* TO BECOME 
sh VERIFY THAT THE ATTENTION BIT FOR PORT ‘A’ IS SET AND 
THAT THE ATTENTION BIT FOR PORT 'B' IS NOT SET. 


ao“ 
6 


TO NEUTRAL AND THAT NEI/HER ATTENTION BIT IS SET. 


TEST 37 SET ATTENTION 'B' BY COMMMAND TEST 
TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND 


A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ‘B’. 


B. WAIT FOR THE RECALIBRATE COMMAND TO COMPLETE ("DRY* TO BECOME 
ott VERIFY THAT THE ATTENTION BF FOR PORT "B* IS SET AND 
THAT THE ATTENTION BIT FOR PORT ‘A’ IS NOT SET. 


oo 
. 


TO NEUTRAL AND THA’ NEITHER ATTENTION BIT IS SET 


TEST 40 PORT ‘A* SET VOLUME VALID TEST 


RELEASE THE DRIVE THROUGH PORT ‘A*. VERIFY THAT THE DRIVE RETURNED 


REL EAS THE DRIVE THROUGH PORT ‘B’. VERIFY y ere DRIVE RETURNED 





- 
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VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 
VERITY THAT A CHANGE IN ‘MUR’, IN RMMR1, SETS THE ATTENTION 
FOR PORT'A’. 


A. WITH PORT ‘A* SELECTED, RESET AND SET ‘™MUR’’ IN RMMR1, 
USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
IS SEIZED AND THAT "VOLUME VALID’’ IS RESET AND 
ATTENTION IS SET. 


B. ISSUE A DRIVE es COMMAND AND A_READ IN EP A 
C D TO THE DRIVE THAT WAS SEIZED IN STEP 
Ha THAT ATTENTION IS RESET AND THAT VOLUME” VALID 


C. eer THE DRIVE FROM PORT ‘°A‘ AND SELECT THE DRIVE FOR 
PORT 'B'. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 

D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 


PORT 'B' THEN RELEASE PORT ‘8’. 


TEST 41 PORT "B® SET VOLUME VALID TEST 
VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 


VERIFY THAT A CHANGE IN ‘MUR’, IN RMMR1, SETS THE ATTENTION 
FOR PORT'B’. 


A. WITH PORT 'B* SELECTED, RESET AND SET 'MUR™ IN RMMR1, 
USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
1S SEIZED AND THAT. VOLUME VALID™ IS RESET AND 
ATTENTION IS SET. 


. ISSUE A DRIVE anes COMMAND AND A READ IN Het 
COMMAN THE DRIVE THAT WAS SEIZED IN STEP 
veniey THAT ATTENTION IS RESET AND THAT VOLUME “VALID 


ao 


- RELEASE THE DRIVE FROM PORT *B’ AND SELECT THE DRIVE FOR 
PORT 'A’. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 


ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 
PORT ‘A* THEN RELEASE PORT ‘A’. 


J 
. 


TEST 42 TEST PORT ‘A* TIMEOUT DOES NOT RESET DRIVE 

VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
A. SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING 0°S INTO RMDS. 
B. WRITE 1°S INTO RMER1 THROUGH PORT ‘A’ TO FORCE AN ATTENTION. 


SEQ 0017 
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856 C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE ps ter TO 

857 NEUTRAL: THAT ATTENTION IS SET FOR PORT ‘A* AND NOT SET FOR 

B26 PORT 'B'; AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER. 

860 

oo TEST 43 TEST PORT 'B' TIMEOUT DOES NOT RESET DRIVE 

ae? VERIFY THAT PORT TIMEOUT DOES NOT INITIAILIZE THE DRIVE. 

oH A. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0°S INTO RMDS. 

rt B. WRITE i1°S INTO RMER1 THROUGH PORT ‘B’. 

869 C. WAIT FOR THE DRIVE TO TIMEOUT. ee a [He Bais eg TO 

870 NEUTRAL; THAT ATTENTION IS SET FOR PORT °B* AND IS NOT SET FOR 

1a) PORT ‘A’; AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER. 

873 

ore TEST 44 PORT ‘A' RETRIGGER BY DEMAND TEST 

897 VERIFY THAT THE PORT TIMEOUT ONE~SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 

a78 A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 

Bet B. WAIT 500 MS AND READ RMDS THROUGH PO 

882 C. a) THAT THE TIMEOUT OCCURS WITHIN + OR = fr, OF THE SPECIFIED 

Pea TIME. (THE MEASUREMENT IS MADE FROM STEP ° 

885 D.. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 

886 BIT IS SET. 

i, 

34 TEST 45 PORT "B' RETRIGGER BY DEMAND TEST 

4 VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 

ak A. SEIZE THE DRIVE THROUGH PORT ‘B' BY WRITING O'S INTO RMDS. 

444 B. WAIT 5CO MS AND WRITE 0°B INTO RMDS THROUGH PORT ‘A’. 

897 C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR = gi, OF THE SPECIFIED 

538 TIME. (THE MEASUREMENT IS MADE FROM STEP ° 

900 D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 

901 BIT IS SET. 

$s 

oo8 TEST 46 PORT ‘A* TIMEOUT/RELEASE TEST 

906 VERIFY THAT THE TIMEOUT ONE~SHOT IS TRIGGERED WHEN THE DRIVE 

14 SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 

44 A. SEIZE THE DRIVE THROUGH PORT ‘B’ BY WRITING 0°S INTO RMDS. | 

Ath B. SET PORT REQUEST BY WRITING 0°S INTO RMDS FROM PORT ‘A’. | 
| 
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C. ISSUE A RELEASE COMMAND FROM PORT "B'. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA BIT DID NOT 
SET FOR PORT 'B’. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘A’. 


D. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 


E. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 47 PORT 'B* TIMEOUT/RELEASE TEST 


VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


A. SEIZE THE DRIVE THROUGH PORT 'A* BY WRITING 0°S INTO RMDS. 
B. SET PORT REQUEST BY WRITING 0'S INTO RMDS FROM PORT ‘B’. 
C. ISSUE A RELEASE COMMAND FROM Ald "A‘. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA’ BIT DID NOT 
SET FOR PORT ‘A’. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘B'. 
D. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 
TEST 50 PORT ‘A* SEIZE ACCESS TEST 
VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
A. SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING 0°S INTO RMDS. 
B. WRITE 1'S INTO RMER1, RMER2 THROUGH PORT ‘A’. 


C. READ RMER1, RMER2 THROUGH PORT ‘B*. VERIFY THAT PORT 
"B’ SEES O'S FROM EACH OF THESE REGISTERS. 


D. CLEAR RMER1, RMER2 THROUGH PORT ‘A’. 


E. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT °B*. VERIFY THAT 
PORT "A’ SEES O'S FROM EACH OF THESE REGISTERS. 


F. aT 7% THE DRIVE THROUGH PORT "A’. VERIFY THAT THE DRIVE HAS 
SWITCHED TO PORT 'B' AND THAT THE ATTENTION BIT FOR PORT ‘B' 
SET AND THE ATTENTION BIT FOR PORT °A* IS NOT SET. 


G. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


IS 


TEST 51 PORT ‘B® SEIZE ACCESS TEST 
VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
A. SEIZE THE DRIVE THROUGH PORT ‘B" BY WRITING 0°S INTO RMDS. 


mao 
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G. 


WRITE 1°S INTO RMER1, RMER2 THROUGH PORT ‘8B’. 


— ,RMER1, RMER2 THROUGH PORT ‘A’. VERIFY THAT PORT 
"SEES O'S FROM EACH OF THESE REGISTERS. 


CLEAR RMER1, RMER2 THROUGH PORT ‘B’. 


WRITE 1°S INTO wk: RMER2 THROUGH PORT ‘A‘. VERIFY THAT 
PORT 'B’ SEES O'S FROM EACH OF THESE REGISTERS. 


ee THE DRIVE bre 4 "B’. VERIFY THAT " DRIVE HAS 
SWITCHED TO PORT AND THAT THE ATTENTION a FOR PORT ‘A' IS 
™sSET AND THE ATTENTION BIT FOR PORT ‘B’ IS NOT SET. 


ISSUE A RELEASE SQMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEU AL AND THAT NEITHER ATTENTION BIT IS SET. 


~ 
— 


SEQ 0020 


rH 
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1 
591 
592 


001100 
104000 
000004 


000011 


000000 
000040 


Z*LAST REVISION 04-AUG-81 


- TITLE crmeww RM80 DUAL PORT PT1 
s*COPYRIGHT (C) 

:*DIGITAL EQUIPMENT come 

; *COLORADO SPGS., CO. 80919 


; PROGRAM BY MIKE LEAVITT 


i STHIS PROGRAM WAS ASSEMBLED Sine THE PDP=11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11=DZQAC-C5), 18-MAR~81 


*SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


15 HALT ON cme 

14 LOOP ON TEST 

13 INHIBIT ERROR TYPEOUTS 
11 INHIBIT ITERATIONS 

10 BELL ON 

9 LOOP ON ERROR 


-SBTTL BASIC DEFINITIONS 
iia. 1 a OF THE STACK POINTER *** 1100 *** 


EMT sBASIC DEFINITION OF ERROR CALL 
10T :IBASIC DEFINITION OF SCOPE CALL 


e222 BRR 


m 
za 
23: 
DR 
aun 


= 11 :;CODE FOR HORIZONTAL TAB 
tr = 12 *:CODE FOR LINE 
CR = 15 33CODE FOR CARRIAGE RETURN 
CRLF = 200 SCODE FOR CARRIAGE RETURN-LINE FEED 
PS ae 177776 + SPROCESSOR STATUS WORD 
STKLMT = 177774 zSTACK LIMIT REGISTER 
PIRQ = 177772 [PROGRAM INTERRUPT REQUEST REGISTER 
DSWR = 177570 * THARDWARE SWITCH REGISTER 
DDISP = 177570 ::HARDWARE DISPLAY REGISTER 
:*GENERAL PURPOSE REGISTER DEFINITIONS 
RO = %0 NERAL REGISTER 
R1 = %1 +:GENERAL REGISTER 
R2 = %2 *:GENERAL REGISTER 
R3 = %3 ::GENERAL REGISTER 
R5 = %5 *:GENERAL REGISTER 
R6 = %6 +:GENERAL REGISTER 
R? = %7 GENERAL REGISTER 
SP = %6 *:STACK POINTER 
PC = %7 +:PROGRAM COUNTER 

;*PRIORITY LEVEL DEFINITIONS 

PRO = 0 33 ITY LEVEL 0 
PR1 = 40 ‘PRIORITY LEVEL 1 


sea 0021 | 


mao 
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BASIC DEFINITIONS 


000340 


100000 


000040 


SW 

SW9=SWO9 
SwW8=Sw08 
ae or 44 


;*DATA B 


fecleclesleclesleclocloslecleclecteclestesteslestes}eckec}ee) 
ne ae beg fame Dag Deg bang bg tems fg Png Pee fg Dane Pas Demy me Png brat ag bem 


i 
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v 

» 

w 
nnnnonn 


nw 

= 

So 

Oo 
nHonnnnnnnnnnnnnns 

— 
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ereece 


al SWITCH DEFINITIONS 


—MNLf_2]D WWwhNN— 


ooooooom f£Of0f°9 
—“Sssssss° oooooo 
oo 


4 


Nm 


I 
0 
0 
00 
0 
0 
0 


oooooo 
oo 


IT DEFINITIONS (BITOO TO BIT15) 


$sSss hanno 
—Ms 


SEQ 0022 
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BASIC DEFINITIONS 


000020 
060010 
000004 
000002 
00001 
0000: 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 
596 
597 
598 
599 
600 
601 000100 
602 000200 
3 000400 
001000 
605 sia 
606 020000 
607 040000 
608 100000 
609 
610 
611 
612 000001 
613 000002 
614 000004 
615 000010 
616 000020 
617 00040 
618 000100 
619 000200 
620 00040 
621 001000 
22 002000 
23 004000 
24 010000 
625 020000 
626 040000 
627 100000 
628 
629 
630 
631 
632 
633 


BIT4=B1T04 
B1T3=B1T03 
BIT2=B1T02 
B1T1=B81T01 
BIT0=81T00 
;*BASIC *'CPU’' TRAP VECTOR ADDRESSES 
ERRVEC = 4 TIME OUT AND OTHER ERRORS 
RESVEC = 10 : 7RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC = 14 Tp a owe 
TRIVEC = 14 sTRACE f 
BPTVEC = 14 SS BREAKPOINT TRAP (BPT) 
IOTVEC = 20 eva TRAP (IOT) **SCOPE** 
PWRVEC = 24 POWER FAIL 
EMTVEC = 30 ; EMULATOR TRAP (EMT) **ERROR** 
TRAPVEC = 34 AP"* TRAP 
KVEC = 60 S:TTY KEYBOARD VECTOR 
TPVEC = 64 33 TTY PRINTER VECTOR 
PIRQVEC = 240 33PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL RH CONTROLLER REGISTERS 
;CONTROL AND STATUS REGISTER 1 (RMCS1) 


IE = 100 rT al ENABLE (BIT #6) 

RDY = 200 SREADY (BIT #7) 

Al6 = 400 :HIGH ORDER BUS ADDRESS BIT (BIT #8) 
Al? = 1000 ;HIGH ORDER BUS ADDRESS BIT (BIT #9) 
PSEL = 2000 ;PORT SELECT (BIT #10) 

MCPE = 20000 SMASSBUSS PARITY ERROR (BIT #13) 

TRE = 40000 3 TRANSFER ERROR (BIT #14) 

sc = 100000 ZSPECIAL CONDITION (BIT #15) 


zCONTROL AND STATUS REGISTER 2 (RMCS2) 


U0 =1 ey SELECT (BIT #0) 

U1 =2 [UNIT SELECT (BIT #1) 

U3 = 4 sUNIT SELECT (BIT #2) 

BAI = 10 ;BUS ADDRESS a NT INHIBIT (BIT #3) 
PAT = 20 SMASSBUS PARITY TEST (BIT #4) 
CLR = 40 sCLEAR (BIT #5) 

IR = 100 INPUT READY (BIT # 

OR = 200 sOUTPUT READY (BIT #7) 

MDPE = 400 MASS BUS PARITY ERROR (BIT #8) 
MXF = 1000 ZMISSED TRANSFER ERROR (BIT #9) 
PGE = 2000 7PROGRAM ERROR (BIT #10) 

NEM = 4000 NON EXISTENT MEMORY T #11) 
NED = 10000 zNON EXISTENT DRIVE (BIT #12) 
UPE = 20000 ;UNIBUS PARITY ER (BIT #13) 
WCE = 40000 [WRITE CHECK ERROR (BIT #14) 
DLT = 100000 SDATA LATE (BIT #15) 


;DATA BUFFER REGISTER (RMDB) 
7(EACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL RM REGISTERS 


mea 


2 ‘1 
CZRNHAO RMB RMB DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 4-3" SEQ 0024 | 


per ;CONTROL AND STATUS REGISTER #1. (400) 

636 000001 GO =1 360 BIT (BIT #0) | 

637 000002 FO =2 sFUNCTION CODE BIT #1 

638 000004 Fi = 4 sFUNCTION CODE BIT #2 

639 000010 F2 = 10 sFUNCTION CODE BIT #3 
0 000020 FS = 20 sFUNCTION CODE BIT #4 

641 000040 F4 = 40 sFUNCTION CODE BIT #5 

oe 004000 DVA = 4000 sDEVICE AVAILABLE (BIT #11) 

ne sCONTROL STATUS REGISTER #2 (RMCS2) 

os 000040 CLR = BITS sCONTROLLER CLEAR 

“3 ;DRIVE STATUS REGISTER (RMDS) (#01) 

650 000001 OM = B1T00 sOFFSET MODE 

651 000100 WV = 100 [VOLUME VALID (BIT #6) 

652 000200 DRY = 200 SDRIVE READY (BIT #7) 

653 000400 DPR = 400 :DRIVE PRESENT (BIT #8) 

654 01000 PGM = 1000 ;PROGRAMABLE 

655 002000 LBT = 2000 TLAST SECTOR TRANSFERRED (BIT #10) 

656 004000 WRL = 4000 [WRITE LOCK (BIT #11) 

657 010000 MOL = 10000 SMEDIUM ON-LINE (BIT #12) 

658 020000 PIP = 20000 POSITIONING oe ait IN PROGRESS (BIT #13) 

659 040000 ERR = 40000 sCOMPOSITE ERROR (BIT 

oe 100000 ATA = 100000 ATTENTION ACTIVE (BIT *y15) 

94) zERROR REGISTER #01 (RMER1) (#02) 

664 000001 ILF =1 ZILLEGAL FUNCTION (BIT #0) 

665 000002 ILR =2 ILLEGAL REGISTER (BIT #1) 

666 000004 RMR = 4 ost yy Maes weit ate aan REFUSED (BIT #2) 

667 000010 PAR = 10 ZPARITY ERROR (BIT #3) 

668 (00020 FER = 20 FORMAT ERROR (Blt #4) 

669 000040 WCF = 40 SWRITE CLOCK FAIL (BIT #5) 

679 000100 ECH = 100 SECC HARD ERROR (BIT #6) 

671 0200 HCE = 200 sHEADER COMPARE ERROR (BIT #7) 

672 000400 HCRC = 400 sHEADER CRC ERROR (BIT #8 

673 001000 AOE = 1000 sADDRESS OVERFLOW ERROR 

674 00200 IAE = 2000 Z INVALID ADDRESS ERROR (BIT #10) 

675 00400 WLE = 4000 sWRITE LOCK ERROR (BIT 

676 010000 DTE = 10000 DRIVE TIMING ERROR (BIT #1 

677 020000 OPI = 20000 ERATION IN a Ler (BIT #13) 

678 040000 UNS = 40000 SDRIVE UNSAFE (BIT 

43 100000 DCK = 100000 DATA CHECK ERROR (BIT 15) 

ret zMAINTAINABILITY REGISTER (RMMR1) (403) | 

683 000001 DMD =1 sDIAGINOSTIC moos or a 

684 001000 MUR = BITO9 SMAINTENANCE UNIT READ 

685 040000 RQB = BIT14 SPORT B REQUEST FLOP 

686 100000 RQA = BIT15 ;PORT A REQUEST FLOP 

068 zATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 

690 000001 ATO =1 sDEVICE 0 (BIT #0) 





| 
| 
! 
| 
ee See: tan | 
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RM REGISTERS 


NANA 
ss St tt 
DNARNRWVIOS 


719 


000002 


04 

100000 
000100 
002000 


000010 


020000 
100000 


000200 
002000 
004000 
010000 


AT1 =2 sDEVICE 1 (BIT #1) 
AT = 4 sDEVICE ¢ (BIT #2) 
AT = 10 sDEVICE 5 (BIT #3) 
ATS = 20 sDEVICE 4 (BIT #4) 
ATS = 40 sDEVICE 5 (BIT #5) 
AT6 = 100 sDEVICE 6 (BIT #6) 
AT? = 200 sDEVICE 7 (BIT #7) 


;DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 
7(EACH BIT IS CALLED BY BIT NUMBER) 


sDRIVE TYPE REGISTER (RMDT) (405) 


DTOO =1 DRIVE TYPE NUMBER BIT 1 

DTO1 =2 DRIVE TYPE NUMBER BIT 2 

DTO2 =4 sDRIVE TYPE NUMBER BIT 3 

DTO3 = 10 DRIVE TYPE NUMBER BIT 4 

DT04 = 20 DRIVE TYPE NUMBER BIT 5 

DTOS = 40 DRIVE TYPE NUMBER BIT 6 

DT06 = 100 DRIVE TYPE NUMBER BIT 7 

DT07 = 200 sDRIVE a NUMBER BIT 3 

DT08 = 400 eS ih YPE NUMBER BIT 9 

DRQ = 4000 DRIVE REQUEST REQUIRED (BIT #11) 
MOH = 20000 SMOVING HEAD (BIT 4 

TAP = 40000 sTAPE DRIVE (BIT #14) 

NBA = 100000 ZNOT BLOCK ADDRESSED (BIT #15) 
;LOOK-AHEAD REGISTER (RMLA) (#07) 

sco = 100 zSECTOR COUNT FIELD 0 (BIT #6) 
$C1 = 200 ZSECTOR COUNT FIELD 1 (BIT #7) 
SC2 = 40 SECTOR COUNT FIELD 2 (BIT #8) 
SC3 = 1000 CTOR COUNT FIELD 3 (BIT #9) 
SC4 = 2000 ;SECTOR COUNT FIELD 4 (BIT #10) 
3RM ERROR REGISTER #2 (RMER2) (#10) 

DPE = 10 zDATA PARITY ERROR (BIT #3) 
DvCc = 200 SDEVICE CHECK (BIT #7) 

LBC = 2000 zLOSS OF BIT CLOCK (BIT #10) 
LSC = 4000 ;LOSS OF SYSTEM Me ti, (BIT #11) 
IvCc = 10000 zINVALID COMMAND (BIT #12) 

OPE = 20000 SOPERATOR ERROR (alt #13) 

SKI = 100000 7SEEK INCOMPLETE (BIT #14) 
ZOFFSET REGISTER (RMOF) (#11) 

OFD = 200 : OFFSET FORWARD (BIT #5) 

HCI = 2000 ;HEADER COMPARE INHIBIT (BIT #10) 
ECI = 4000 ERROR CORRECTION CODE INHIBIT (BIT #11) 
FMT16 = 10000 sFORMAT BIT (BIT #12 

;DESIRED CYLINDER ADDRESS (RMDC) (#12) 


3(EACH BIT IS CALLED BY BIT NUMBER) 


sSERIAL NUMBER REGISTER (RMSN) (414) 
3(EACH IS CALLED BY BIT NUMBER) 





SEQ 0025 


=o 
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748 

749 sECC POSITION REGISTER (RMEC1) (#16) 
£29 7(EACH BIT IS CALLED BY BIT NUMBER) 
752 sECC PATTERN REGISTER (RMEC2) (#17) 
£3? 7(EACH BIT IS CALLED BY BIT NUMBER) 


755 .SBTTL DEFINITIONS OF THE RH/RM ADDRESS INDEXES 


756 
757 000000 RMCS1 sCONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
758 000002 RMWC :WORD COUNT REGISTER (NOT A DRIVE roy 
| 


R ATU IST 
co STATUS REGISTER (DRIVE REG N01) 
sERROR REGISTER #1 (DRIVE REG. 02 
;ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
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sER 
4333 POSITION REGISTER (D 


DRIV ) 
775 000046 RMEC2 C PATTERN REGISTER (DRIVE REG. 17) 


= 


— 


an 
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1 -SBTTL TRAP CATCHER 


000000 =0 
:*ALL UNUSED LOCATIONS FROM 420776 CONTAIN A.” .+2,HALT" 
S*SEGUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
:*LOCATION Q CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
| 
} 
| 
| 
| 
| 
| 
J 


000174 
000174 000000 DISPREG: .WORD 0 73SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD 0 ZZSOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 
5 000200 000137 002240 JMP @ASTART 32JUMP TO STARTING ADDRESS OF PROGRAM 
? 000204 000137 002250 JMP @ASTARTI zSTART AND CHANGE “HE RH/RM ADDRESS 
5 -SBTTL ACT11 HOOKS 
FRAC AAA REAR AEREERAERERAAAARRERARARERERARERRERARERRERRR ERS 
:hooKs REQUIRED BY ACT11 
000210 $SVPC=. sSAVE PC 
000046 =46 
000046 sass SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 020000 “WORD 20000 e3e)Set Loc. gee TO 20000 
000210 -=$SVPC 33 RESTORE P 


6 #, 


an 
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COMMON TAGS 
0 ~SBTTL COMMON TAGS | 
SERRA ARERR AREA ERE EERE RE RAR RARAE ERR ARARARARRRERRAE AER ERAE EE | 
:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
s®USED IN THE PROGRAM. 
001100 -=1100 
901100 SCMTAG: szSTART OF COMMON TAGS 
001100 000000 $PASS: .WORD 0 s:CONTAINS PASS C 
001102 000 STSTNM: .BYTE 0 szCONTAINS THE TEST NUMBER 
001103 000 SERFLG: .BYTE 0 CONTAINS ERROR FLAG 
001104 000000 SICNT: .WO 0 CONTAINS SUBTEST ITERATION COUNT 
001106 000000 $LPADR: .WORD 0 ::CONTAINS SCOPE LOOP ADDRESS 
001110 000600 SLPERR: .WORD 0 s CONTAINS SCOPE TURN FOR ERRORS 
001112 000000 SERTTL: .WORD 0 s:CONTAINS TOTAL ERRORS DET! “TED 
001114 000 SITEMB: .BYTE 0 ::CONTAINS ITEM CONTROL BY 
001115 001 ERMAX: .BYT 1 3e AINS MAX. ERRORS PER TEST 
001116 000000 SERRPC: .WORD 0 s:CONTAINS PC OF LAST ERROR INSTRUCTION 
001120 690000 SGDADR: .WORD 0 ::CONTAINS ADDRESS OF ‘GOOD’ DATA 
polis 900000 SBDADR: .WORD 0 s:CONTAINS ADDRESS OF ‘BAD’ DATA 
001124 000600 SGDDAT: .WORD 0 ::CONTAINS ‘GOOD’ DATA 
001126 000000 SBDDAT: .WORD 0 s:CONTAINS ‘BAD’ DATA 
001130 000000 -WORD 0 3s ;RESERVED--NOT TO BE USED 
001132 000000 -WORD OQ 
001134 000 $SAUTOB: .BYTE 0 szAUTOMATIC MODE INDICATOR 
001135 000 SINTAG: .BYTE 0 3: INTERRUPT MODE INDICATOR 
001136 000000 .WOR 0 
601140 177570 SWR: -WORD DSWR szADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP szADDRESS OF DISPLAY REGISTER 
001144 177560 $TKS: 177560 zz TTY KBD STATUS 
001146 177562 $TKB: 177562 - ::TTY KBD BUFFER 
001150 177564 $STPS: 177564 :: TTY PRINTER STATUS REG. ADDRESS 
001152 177566 STPB: 177566 sz TTY PRINTER BUFFER REG. ADDRESS 
001154 000 ULL: .BYTE 0 s CONTAINS NULL CHARACTER FOR FILLS 
001155 2 SFILLS: .BYTE e s CONTAINS # OF FILLER CHARACTERS REQUIRED 
001156 012 S$FILLC: .BYTE 12 sz INSERT FILL CHARS. AFTER A FEED’ 
001157 000 STPFLG: .BYTE 0 3" ‘TERMINAL AVAILABLE’’ FLAG (B1T<07>=0=YES) 
001160 000000 $RE «WORD 0 z:CONTAINS THE ADDRESS FR 
72WHICH (SREGO) WAS OBTAINED 
001162 000000 SREGO: .WORD 0 s:CONTAINS ((S$REGAD) +0) 
001164 000 0: .WORD 0 :;USER DEFINED 
001166 000000 STMP1: .WORD 0 sUSER DEFINED 
001170 0000 STMP2: .WORD 0 se R DEFINED 
001172 000000 S$TMP3: .WORD 0 33 DEFINED 
001174 000000 STMP4: .WORD 0 s USER DEFINED 
001176 0000 STIMES: 0 33MAX, ER OF ITERATIONS 
001200 000000 SESCAPE:0 s ESCAPE ON ERROR ADDRESS 
001202 207 377 377 $BELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 
001206 077 SQUES: .ASCII /?/ QUEST MARK 
001207 015 SCRLF: .ASCII <15> 7: CARRIAGE RETURN 
001210 0i2 000 SLF: ASCIZ <12 ;;LINE FEED 


° ee 
J LRRAPAARAAAAAAAAARAAAAAAAAAAAARAAAAAAAHAAA AAA AAA eA Kee AAA AA Aee ees 


“am 
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USER DEFINED TAGS 


-SBTTL USER DEFINED TAGS 


001212 172540 SLKCSR: .WORD 172540 zADDR OF KW11-P STATUS wy EH 
001214 172542 $LKCSB: .WORD 172542 TADDR OF KWi1-P COUNTER BUFFER 
001216 000104 SLPVEC: .WORD 104 TADDR OF KW11=P VECTOR 
001220 177546 $LKS:  .WOR 177546 SADDR OF KWil-L STATUS REGISTER 
001222 000100 $LLVEC: . 100 SADDR OF KW11-L_VECTOR 
001224 000000 ORTA: . 0 ADDRESS OF 
001226 0000 PORTB: .WORD 0 zADDRESS 
001230 000000 PORTC: 0 D 
001232 000000 RQSTA: .WORD 0 
001234 000000 RQSTB: . 0 
001236 000000 ASR1 -WOR 0 ZATA@A OR A = 1 
001240 000000 PTNBR: .WORD 0 3 CONTAINS tHE PORT ADDRESS FOR ERROR a 
001242 000000 SEIZPT: .W 0 SCONTAINS THE ADDRESS OF THE SEIZING 
001244 000000 OPPRT: . 0 7 CONTAINS i. ADDRESS OF THE ‘OPPOSITE’ PORT 
001246 000000 TSTNUM: . 0 SNUMBER OF THE CURRENT TEST 
001250 000000 CKERR: .WORD 0 31F <1, A np tht 1 Ae aie aS eg 
001252 000000 NOSEIZ: .WORD 0 tf -1, THE PORT IN ‘SEIZPT’ DID NOT SEIZE THE DRIVE 
001254 000000 RELERR: . 0 sIF <1, THE PORT IN ‘SEIZPT® DID NOT RELEASE THE DRIVE 
001256 000000 WORD 0 SELAPSED TIME COUNTE 
001260 000000 WATCH: .WORD 0 3WATCH DOG TIMER LOCATION 
001262 000000 TIMEA: .WORD 0 3 THE TIMEOUT | ONE-SHOT VALUE MEASURED THROUGH PORT A 
64 000000 TIMEAP: .W 0 SPORT A TIMEOUT VALUE + 25% 
001266 000000 TIMEAM: . 0 :PORT_A TIMEOUT VALUE = 25% 
001270 000000 TIMER: .WORD 0 STHE TIMEOUT ONE=SHOT VALUE MEASURED THROUGH PORT B 
001272 000000 TiMcBP: .WOR 0 zPORT A fl VALUE + 25% 
001274 000000 TIMEBM: .WORD 0 SPORT B TIME VALUE = 25% 
001276 000000 TIMES: .W 0 ;STORAGE FOR TIMEOUT ONE=SHOT RETRIGGER TEST 
001300 000000 KYBCTL: .WORD 0 SSINGLE TEST INDICATOR 
001302 000000 CHGADR: .WCRD 0 [CHANGE THE RH/RM ADDRESS INDICATOR 
.SBTTL RH/RM UNIBUS AND VECTOR ADDRESSES 
001304 176700 $RMADR: .WORD 176700 3;RH/RM UNIBUS ADDRESS 
001306 000254 SRMVEC: .WORD 254 Z INTERRUPT VECTOR ADDRESS 


| 
ZA DRESS OF gf Aa Hs aes 
;REQUEST BIT FOR PORT 
REQUEST ih FOR _PORT a 


| E 3 ee 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR ag CAN OCCUR. 
:*THE INFORMATION IS OBTAINED BY USING THE INDEX es FOUND IN 
: LOCATION sacha a: INDICATES WHICH ITEM IN THE eA IS PERTINENT. 


S 0 THE ONLY PERTINENT DATA IS (SERRPC). 
:*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLCWS: 
3* EM ::POINTS TO THE ERROR MESSAGE 
3 DH 3 sPOINTS TO THE DATA HEADER 
3* DT sPOINTS TO THE DATA 
3* DF : [POINTS TO THE DATA FORMAT 
. 001310 SERRTB: 
4 ERROR 1 
4 001310 072654 EM1 :WRONG DRIVE TYPE 
§ 001312 077306 _ DHI 
6 001314 101176 DT1 
c 001316 101464 DF1 
- sERROR 2 
11 001320 072675 EM2 DRIVE NOT ON LINE 
12 001322 97/5% DH1 
13 001324 101176 DT1 
16 001326 101464 DF1 
1 ERROR 3 
18 001330 072717 EM3 SERIAL NUMBERS NOT THE SAME 
19 001332 077357 DH3 
20 001334 101212 DT3 
1 001336 101464 DF1 
$7 sERROR 4 
25 001340 073001 EM4 DRIVE NOT SEIZED BY PORT 'N’ 
26 001342 077426 DH4 
27 001344 101260 DT7 
28 001346 101477 DF7 
. ZERROR 5 
32 001350 073032 EMS sWRONG STATUS SEEN BY THE SEIZING PORT 
33 001352 077551 DHS 
34 001354 101226 DT5 
HH 001356 101471 DFS 
* ZERROR 6 
39 001360 073100 EM6 :REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT ~ DRIVE WAS SEIZED 
40 001362 100021 DH13 . 
41 001364 101300 DT13 
42 001366 101471 DFS 





=m 
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ERROR POINTER TABLE 


3 


43 | 
44 sERROR 7 | 
46 001370 073200 EM7 sREGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT 

47 001372 077625 DH? 
48 001374 101260 DT7 
49 001376 101477 DF7 | 
3 ZERROR 10 
53 001400 073261 EM10 _ ;REGISTER CONTENTS INCORRECT | 
54 001402 077551 =x. DHS 

55 001404 101226 075 

36 001406 101471 DFS 

38 sERROR 11 

60 001410 073311 EM11 «CONTROL BUS PARITY ERROR WHILE READING REGISTER | 
61 001412 077750 DH11 

62 001414 101176 D 

63 001416 101464 DF1 

6 ZERROR 12 

67 001420 (73375 EM12  ; DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND 

68 001422 100515 DH36 
69 001424 101366 D137 

70 001426 101512 DF 36 

es ZERROR 13 © 

74 001430 073445 EM13. —-; "VOLUME VALID' BIT NOT SET BY READIN PRESET | 
75 001432 100021 DH13. 
76 001434 101300 DT13 

oe 001436 101471 DFS | 
He ERROR 14 

81 001440 073532 EM14 "VOLUME VALID' SET ON THE OPPOSITE PORT 

82 001442 100021 DH13 

83 001444 101300 DT13 

84 001446 101471 DFS | 
86 ZERROR 15 

88 001450 073575 EM1S THE ATTN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET 

89 001452 077625 DH7 ™ 

90 001454 101260 DT7 

31 001456 101477 DF7 

3 ERROR 16 | 
95 001460 073654 EM16 _— ATTN BIT WRONG AFTER RELEASE = REQUEST WAS SET 
96 001462 077625 DH7 
97 001464 101260 DT7 
98 001466 101477 DF7 
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ERROR POINTER TABLE 


199 ERROR 17 

102 001470 073727 —EM17 zATTN BIT WRONG AFTER RELEASE = REQUEST NOT SET 
103 001472 077625 DH7 

104 001474 101260 DT7 

24 001476 101477 DF7 

4 ERROR 20 

109 001500 074006 EM20 sDRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED 
110 001502 100515 DH36 

111 001504 101366 0137 

4 001506 101512 DF36 

"Ne ZsERROR 21 

116 001510 074066 —EM21 DRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT FOR PORT 
117 001512 100515 DH36 

118 001514 101366 D137 

\% 001516 101512 DF36 

is} sERROR 22 

123 001520 074141 EM22 DRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET 
124 001522 100141 DH22 

125 001524 101316 DT22 

is6 001526 101506 DF31 

4 sERROR 23 

130 001530 074226 EM23 s TIMEOUT CLEARED THE DRIVE'S ERROR BIT 

131 001532 100237 DH23 

132 001534 101330 DT23 

13? 001536 101464 DF1 

4 sERROR 24 

137 001540 074274 EM24 RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET 
138 001542 100237 DH23 

139 001544 101330 DT23 

i” 001546 101464 OF1 

142 

> ERROR 25 

145 001550 074353 EM25 TIMEOUT ONE-SHOT DID NOT RETRIGGER 

146 001552 100515 DH36 

147 001554 101356 DT36 

148 001556 101512 DF 36 

149 

150 

133 ERROR 26 

153 001560 074416 EM26 DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET 
154 001562 100141 es DH2 

155 001564 101316 DT 

156 001566 101506 DF 31 
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ERROR POINTER TABLE 


157 

138 ERROR 27 

160 001570 074503 —EM27 REGISTER WRONG AFTER RELEASE WITH REQUEST SET 

161 001572 077625 DH? 

162 001574 101260 DT7 

4 001576 101477 DF7 

4 sERROR 30 

167 001600 074561 EM30 DRIVE SEIZED BY RELEASE ISSUED WHEN DRIVE IN NEUTRAL 

168 001602 100515 DH36 

169 001604 101356 DT36 

1” 001606 101512 DF36 

v6 ZsERROR 31 

174 001610 074656 —EM31 DRIVE NOT SEIZED BY PORT AFTER RELEASE WIITH REQUEST SET 
175 001612 100416 p431 

176 001614 101344 DT31 

a4 001616 101506 DF31 

4 sERROR 32 

181 001620 074733 EM32 sATTN BIT WRONG AFTER RECALIBRATE COMMAND 

182 001622 077551 . DHS 

183 001624 101226 DTS 

He: 001626 101471 DFS 

186 ERROR 33 

188 001630 075004 —EM33 DRIVE RETURNS TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED 
189 001632 100515 DH36 

190 001634 101356 DT36 

13) 001636 101512 DF36 

Lb ZERROR 34 

195 001640 075106 M34 DRIVE RETURNS TO NEUTRAL IF MASSBUS INIT GIVEN WHILE DRIVE SEIZED 
196 001642 100515 DH36 

197 001644 101356 DT36 

HF 001646 101512 DF 36 

$00 ERROR 35 

202 001650 075211 EM35 DRIVE DID NOT RETURN TO NEUTRAL BY TRIGGERING TIMEOUT ONE SHOT 
203 001652 100515 DH36 

204 001654 101366 D137 

She 001656 101512 DF 36 

207 ERROR 36 


zTIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 
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sERROR 37 


ZERROR 47 
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ERROR POINTER 


DRIVE IS NON-EXISTENT 


zATTENTION FOR PORT NOT RESET BY MASSBUS CLEAR 


TIMEOUT CLEARED ATTENTION BIT 


DRIVE NOT IN NEUTRAL OR SEIZED 


;DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN 


sWRITE ATTENTION BIT DID NOT SET PORT REQUEST 


zPORT SELECT SWITCH ON DRIVE NOT IN ‘A/B' 


7CAN'T ACCESS DRIVE THROUGH EITHER PORT 


J 3 Sw 
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ERROR POINTER TABLE 


72 001770 076070 —EM47 sATTN BIT FOR SEIZING PORT NOT CLEARED BY DRIVE CLEAR 
27 1772 190637 DH23 
274 001774 101330 DT23 
sf? 001776 101464 Fl 
sir ERROR 50 
279 002000 076156 —EM50 zATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR COMMAND 
280 002002 100021 DH13 
281 002004 101300 D713 
282 002 101471 DF5 ie 
283 
44 ERROR 51 
286 002010 076240 —EM51 z:ATTN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL 
287 002012 077551 DHS 
288 002014 101226 DTS 
$85 002016 101471 DFS 
$3) ERROR 52 
293 002020 076327 EMS2 sATTIN BIT SET AFTER TIMEOUT, "ERR' SET, NO REQUEST 
294 002022 100021 DH13 
295 002024 101300 DT13 
$38 002026 101471 DFS 
4 sERROR 53 
300 002030 076422 —EM53 :CAN'T READ ATIN BIT FROM OPPOSITE PORT 
301 002032 100237 DH23 . 
302 002034 101176 DT1 
002036 101464 DF1 
305 ERROR 54 
307 002049 076503 EM54 ;RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT 
308 002042 100141 DH22 
309 002044 101416 DT54 
319 002046 101506 DF31 
31g ERROR 55 
314 002050 076576 —EM55 TIMEOUT ONE-SHOT IS LESS THAN 500 MS 
315 002052 100756 DH55 
316 002054 101430 pT55 
ah 002056 101517 DF55 
ih ERROR 56 
321 002060 076643 EM56 :RH/RM DIDN'T RESPOND TO ADDRESSING 
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ERROR POINTER TABLE 

328 
329 002070 0 
330 002072 1 
1 002074 1 
2076 1 


;PORT REQUEST FLOPS WRONG 


iw 


sERROR 60 
002100 076747 ew sATTENTION BITS NOT RESET BY RMAS 


Bete 


WANNA 


oO 


sERROR 61 
13 EM61 sATTENTION NOT RESET BY GO 


sERROR 62 


RESSESEEEE 
COWBNAUEWN— 


Vv 


zATTENTION RESET BY GO WHEN NOT SEIZED 


sERROR 63 


357 002130 EM63 zDRIVE SEIZED BY *MUR"’ CHANGE IN RMMR1 
358 poste 


WANNA 
MVIiMIuwivivi 
Qui kW. 


EM64 zATTENTION NOT SET BY ‘MUR"’ CHANGE IN RMMR1 


EM65 7VV NOT RESET BY RMMR1 ‘MUR’ IN RMMR1 





OuSwn— 
o 
oO 


WNC VCONAUSWA—CV0ON 
ssss S3sss 
roronoeny) ss PUrororofre 
rr 
oe 


NNN @ 2 2 PO OS 


002450 
002452 
002456 


012737 
005227 


001375 
000005 


012706 
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001302 
177777 
000000 


001100 
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177777 
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176472 


CZRNHAO RM8O DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9 
ERROR POINTER TABLE 


zTHIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: MOV (SP) ,RO sSAVE PC_ WHERE THE TIME OUT OCCURED 
TST = SADJUST PC <2 
CMP (SP)+, (SP)+ ZRESTORE STACK POINTER 
TYPE 65$ ii TYPE A ASCIZ STRING 


4$ [GET OVER THE ASCIZ 
<CRLF>/UNEXPECTED BUS PIMEOUT. PC=/ 


RO,=(SP) SETUP FOR TYPING OUT PC 


BR 
47655: eASCIZ 
MOV 
TYPOC 
NOP 
3TO STOP ON UNEXPECTED TIMEOUT. 


-SBTTL START OF PROGRAM 


START: NOP 
CLR CHGADR 


BR START2 
START1: MOV #-1,CHGADR 
START2: INC #0 

BNE - 

RESET 


360 TO THE START 


sTTY LOOP, WAIT FOR INCREMENT 
;OF WORD 
CLEAR THE WORLD 


-SBTTL_ INITIALIZE THE COMMON TAGS 
z:CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV A#SCMTAG,R6 2 FIRST LOCATION TO BE CLEARED 
CLR (R6)+ eeCb LEAR MEMORY LOCATION 
CMP HSWR RO 3 
a -~6 $ILO0P. "Back IF NO 
2SP 33SETUP THE STACK POINTER 


WSTACK 
: INITIALIZE A FEW VECTORS 
#SSCOPE ,a# IOTVEC 27 10T VECTOR FOR SCOPE ROUTINE 


MOV #540, aM1OTVEC+2 ; E 
MOV WSERROR,@MEMTVEC :;EMT VECTOR FOR ERROR ROUTINE 
MOV #3 0 SWEAT VEC YS 3s LEVEL 


MOV #STRAP , a#TRAPVEC jie oe FOR TRAP CALLS 


MOV #340, a TRAPVEC +2; LEVE 
MOV SENDCT, eSEOPCT ETUP END-OF-PROGRAM COUNTER 


CLR ES S EINITIALIZE NUMBER OF ITERATIONS 

CLR SCAPE 33CLEAR THE cre ON ERROR RESS 

MOVB #1,SERMAX 7ZALLOW ONE ERROR PER TEST 

MOV #.,$LPAD sci Mee THE LOOP ADDRESS FOR SCOPE 
OV 2$LP LOOP ADDRESS 


M #. .SLPERR ith OR 
::SIZE FOR A HARDWARE SWITCH RE ciSTER, NOT FOUND OR IT IS 


7zEQUAL TO A ‘~1"", SETUP FOR A SOFT WARE. SWITCH REGISTER. 
MOV @#ERRVEC ,~(SP) tt ERROR VECTOR 
MOV #64$,a#ERRVEC ;;SET UP ERROR VECTOR 
MOV #DSWR, SWR 23 ETUP FOR A HARDWARE SWICH REGISTER 
MOV ADDISP,DISPLAY ; A HARDWARE DISPLAY REGISTER 
CMP #-1,aSWR 7:TRY TO REFERENCE HARDWARE S 
BNE 66$ ty pee IF NO TIMEOUT TRAP OCCURRED 
THE HARDWARE SWR IS NOT = -1 
BR 65$ + BRANCH IF NO TIMEOUT 
64$: MOV #65$, (SP) 33SET UP FOR TRAP RETURN 


2PUT "HALT(0)* INSTRUCTION HERE IF YOU WISH 


CLEAR THE ‘CHANGE RH/RM ADDRESS" INDICATOR 
[SET THE ‘CHANGE RH/RM ADDRESS’ INDICATOR 


SEQ 0037 


oOo 


tam 


Mm 3 
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INITIALIZE THE COMMON TAGS 


002460 012737 000176 001140 65$: MOV #SWREG, SWR ysPOINT TO SOFTWARE SWR 
002466 012737 000174 001142 MOV #DISPREG,DISP 
002474 012637 000004 66$: MOV SRE SERAVER ” RESTORE ERROR VECTOR 
SETUP ‘'TIMEOUT'’ TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
25 002500 012737 002160 000004 MOV WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
26 002506 012737 000300 000006 MOV #PR6,ERRVEC+2  :LEVEL 6 
28 .SBTTL TYPE PROGRAM NAME 
::TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
002514 005227 177777 INC #-1 s:FIRST TIME? 
002520 001032 BNE 675 : BRANCH IF NO 
002522 022737 066040 000042 CMP MSENDAD,a#42 =: ACT-11? 
002530 001426 BEQ 67$ i 7BRAN CH IF YES 
002532 104401 002540 TYPE ,68$ 33TY PE ASCIZ STRING 
002536 000423 BR 67$ ‘GET OVER THE ASCIZ 
ieoeis 15688: “ASCIZ. <CRLF>@CZRNHAO = RM80 DUAL PORT TEST, PT 1@<CRLF> 
.SBITL GET VALUE FOR SOFTWARE SWITCH REGISTER 
002606 005737 000042 TST aH42 s;ARE WE RUNNING UNDER XXDP/ACT? 
002612 001006 BNE 69$ S:BRANCH IF YES 
002614 023727 001140 000176 CMP SWR,ASWREG 33 SOF TWARE SWITCH REG SELECTED? 
002422 001005 BNE 70$ “BRANCH IF NO 
002624 104406 GTSWR t:GET SOFT-SWR SETTINGS 
002626 000403 BR 70$ 
002630 112737 000001 001134 698: MOVB =: #1, $SAUTOB z:SET AUTO-MODE INDICATOR 
29 002636 004737 070540 JSR PC,$TKINT :SETUP THE TTY KEYBOARD 
30 002642 004737 003236 1$: JSR PC, CHANGE * CHECK/ CHANGE THE RH/RM ADDRESS 
31 002646 104401 072322 TYPE  ,ENTERA SENTER DRIVE ADDRESS 
32 002652 104412 RDOCT [GET THE ADDR 
33 002654 012637 001224 MOV (SP)+,PORTA ‘STORE THE ADDRESS 
34 002660 023727 061224 000007 CMP PORTA,47 :SEE IF ABDRESS TOO LARGE 
35 002666 101403 BLOS 2 ‘BR IF NOT 
36 002670 104401 072351 TYPE ADRERR ;TYPE ADDRESS ERROR MESSAGE 
37 002674 000762 BR "TRY 
38 002676 013737 001224 001226 2$: MOV PORTA,PORTB *GENERATE THE PORT B ADDRESS 
9 002704 005237 001226 INC PORTB S INCREMENT THE ADDRESS 
0 002710 042737 000016 001226 BIC #16,PORTB 3LEAVE 
41 002716 013746 001224 MOV PORTA. =(SP) *PUT PORT A ADDRESS ON THE STACK 
42 002722 042716 177771 BIC #°C6, (SP) + SAVE BITS 1 
43 002726 052637 001226 BIS (SP)+,PORTB iSET BITS 1 & 2 IN PORT B ADDRESS 
44 002722 104401 072374 TYPE  ,PORTAIS 2 eee A ADDRE 
45 002736 013746 001224 MOV PORTA, -(SP) 33 SAVE PORTA | FOR TYPEOUT 
:: TYPE PORT A ADDRESS 
002742 104403 TYPOS 3200 lYPe~-UCTAL ASCii 
002744 001 BYTE 1 t:TYPE 1 DIGIT(S) 
002745 000 “BYTE 0 : | SUPPRESS LEADING ZEROS 
46 002746 104401 072423 TYPE ,PORTBIS :*PORT B ADDRESS IS ' 
47 002752 013746 001226 MOV PORTB,=(SP) +;SAVE PORTB FOR TYPEOUT 
iE TYPE PORT B ADDRESS 
002756 104403 TYPOS 7:60 TYPE-OCTAL ASCII 
002760 001 .BYTE 1 3 TYPE 1 DIGIT(S 
002761 000 “BYTE 0 ‘SUPPRESS LEADING ZEROS 
48 002762 104401 001207 TYPE SCRLF SANOTHER CR-L 
49 002766 013737 001224 001230 MOV PORTA, PORTC SGENERATE ADDRESS OF DRIVE NOT TESTED 
50 002774 062737 000006 001230 ADD #6,PORTC [COMPLEMENT SOME BITS 





T VALUE FOR SOFTWARE 


1 00300 
3 00301 
53 003014 
56 003022 


66 003064 
67 003070 
68 074 


81 003160 
a 003162 


042737 
701 


000171 


005737 


SWITCH REGISTER 


177770 
0 


072452 


177776 


072510 


003346 
101650 


072530. 


001300 
003232 


101524 


001302 
001302 
072570 
001304 


001207 


001230 
001236 


001104 





BIC #°C7,PORTC 
MGV OR 
MOVB  ATABIT(R1),ASR1 - 
CLR TIMEA , 
CLR TIMEAP 
CLP TIMEB 
CLR TIMEBP 
JSR PC,CKCLK 
JMP EX 
TYPE ,NOCLOCK 
3$: HALT 
BR 3$ 
sROUTINE TO GET THE TEST NUMBER 
EXEC: RESET 
CLR PS 
TYPE SCRLF 
MOV $RMADR,RO 
MOV #STACK.SP 
JSR PC, CKCLK 
NOP 
JSR PC, $TKINT 
CLR KYBCTL 
CLR SS 
MOVB = #1, SERMAX 
MOV #. .$LPADR 
MOV #. .SLPERR 
1$: TYPE ,TESTNO 
RDOCT 
MOV (SP)+,R1 
BNE 
JMP TST1AA 
2$: CMP R1,MAXTN 
BLE 3$ 
TYPE BADNO 
BR i$ 
3$: DEC R1 
ASL R1 
INC KYBCTL 
MOV #1,$1CNT 
MOV #PR5,=(SP) 
MOV #64$,-(SP) 
RTI 
64$: 
JMP @TSTADR(R1) 
CHANGE 
CHANGE: TST CHGADR 
BEQ 3$ 
CLR CHGADR 
1$: TYPE ADDRIS 
MOV $RMADR,-(SP) 
TYPOC 
TYPE  ,$CRLF 
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3SAVE ONLY LOWER rt " 
ius enone 


SCLEAR TIMEOUT ONE=SHOT VALUE LOCATION 
ZCLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
SSETUP CLOCK 

CLOCK HAS BEEN STARTED 

3NO CLOCK ON SYSTEM 

sFATAL ERROR 

‘INTERLOCK THE HALT 


FROM THE OPERATOR 


CLEAR EVERYTHING 
CLEAR THE PROCESSOR STATUS WORD 


3CReL 

7RH/RM re ge = FOR INDEXING 
LOAD _ POINTER 

4 Gil, HE cu 


N IF NO CLOCK 
STNITIALIZE. THE KEYBOARD 
: a eke TEST INDICATOR 
SCLEAR THE PASS_COUNT 


7SET ERROR MAX TO 1 

ZINITIAL SETTING FOR LOOP ADDRESS 

ZINITIAL SETTING FOR LOOP ON ERROR ADDRESS 
ZASK Be TEST NUMBER 

7GET THE NUMBER 

PUT gh inte R1 

;BR_IF NOT ZERO 

sENTER PERO - PERFORM ALL TESTS 

3SEE_IF NUMBER GREATER THAN MAXIMUM 

BR IF Less OR EQUAL 
:BAD ENT 

AGAIN 
:DECRENENT Sa 
7SHIFT IT LEFT 
iSET a atin ei Caren 
TION COUNT 

eeu 
33PUT 
32:POP NEW PC AND PS 
;JUMP TO TEST 


THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM 


; CHANGE Ming ADDRESS ? 


SCLEAR THE INDICAT 
STYPE OUT WHAT THE VPRESENT peeness IS 
:Pur THE ADDRESS ON T 

ir, ACTUAL ADDRESS 


SEQ 0039 | 


———————— 


“Am 
am 


Frm 
42 
<= 
23 
mx 


So 


SIESE 
oO 


Sssssss 


oS 
oo 
WWW NWN 


Ssss 
WAG 


WWeweow 2 owe 
oo 


— Po arn Ded ed td dd 
FARK SONAM Run=oo 


B 4 
UAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-3 SEQ 0040 


SOFTWARE SWITCH REGISTER 
266 104401 072625 TYPE ,NTRH SASK FOR NEW ADDRESS 
272 104412 RDOCT 
74 005716 TST (SP) :0 OR "CR" ENTERED ? 
76 001402 BEQ 23 “BR IF EITHER ENTERED (NO ADDRESS CHANGE) 
00 011637 001304 MOV (SP) ,SRMADR *NEW RH/RM A 
304 005726 28: TST (SP)$ [CORRECT THE STACK POINTER 
306 0127 003326 000004 38: MOV #6$,aK4 [LOAD TRAP ADDRESS 
314 013700 001304 MOV SRMADR RO :GET RH/RM ADDRESS 
320 005760 000002 TST RMwe (RO) SRESPONDS AT THAT ADDRESS ? 
324 000404 BR 5$ ‘BR IF YES 
326 4$: 
326 104056 EMT 56 
330 062706 000004 ADD #4,SP :RESET THE STACK POINTER 
334 000745 BR :GET ADDRESS AGAIN 
336 012737 000006 000004 5S: MOV #6, 086 *RESTORE THE VECTOR 
344 000207 RTS PC RETURN 
013700 001304 TSTIAA: MOV SRMADR,RO s:RESTORE RO AFTER END OF PASS 
012746 000240 MOV #PRS,=(SP) PUT NEW PS ON STACK 
356 012746 003364 MOV #64$.-(SP) +:PUT NEW PC ON STACK 
000002 RTI POP NEW PC AND PS 
64$: 
SERRA RRA ARARRAAEERER EAA ERAEAR RRA RRAERERARERRRERERERRRRRERRR EEE 
:STEST 1 NEUTRAL ACCESS TEST 
*VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 
te A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 
* DRIVE IS A DUAL PORT RMBO, THAT THE DRIVE IS ONLINE (RMDS HAS 
te "MOL', "PGM', "DPR', & ‘DRY’ BITS SET), AND THE THE DRIVE SERIAL 
:* NUMBER READ THROUGH BOTH PORTS IS THE SAME. 
:* B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
+ RRRRRRRRRREREERRRRRR EERE EER ARERA AEE AREERARERRAAAA ERRATA ANA HS 
TST1: 
005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
003370 001406 BEQ 2$ : T 
10000 BPL 1$ “BR IF JUST ENTERED TEST 
4 000137 00306 JMP “RETURN & GET NEXT TEST NUMBER 
00 012737 177777 001300 1$: MOV #-1,KYBCTL SET SINGLE TEST INDICATOR 
012737 003422 001106 2$: MOV #TEST1,$LPADR SETUP SCOPE LOOP ADDRESS 
003414 012737 003422 001110 eal MOV #TEST1.SLPERR :SETUP ERROR LOOP ADDRESS 
112737 000001 001102 "move #1, $TSTNM :MOVE #1 TO TEST NUMBER 
012706 001100 MOV WSTACK, SP [LOAD THE STACK POINTER 
012737 000001 001176 MOV #1, STIMES +;D0 1 ITERATION 
3442 012760 000040 000010 MOV #CLR.RMCS2(RO) ;INITIALIZE THE MASSBUS 


;VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A & B 


13760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
13737 001224 001240 MOV PORTA,.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
05760 000012 TST RMDS (RO) 3SEE IF DRIVE (PORT A) PRESENT 


Am 







C 
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11 NEUTRAL ACCESS TEST 


005037 00125 CLR CKE SCLEAR THE "CHECK ERROR’ INDICATOR 

016037 000010 001126 MOV EAE eS (ROD, SBDDAT GET CONTENTS OF RMCS 

012737 000010 001122 MOV #RMCS2, $BDADR T ORM REGISTER ADDRESS OF ERROR MESSAGE 

060037 001122 ADD RO, $BDADR “GAD RH/RM BASE ADD DRE S 

005C37 001124 CLR $GDDAT WHAT RECISTER SHOULD BE 

013737 001126 001164 MOV SBDDAT,$TMPO :MOVE REGISTER CONTENTS TO "$TMPO' 

0427 7? 167777 001164 BIC #°CNED.$TMPO ; SAVE SPECIFIED BITS 

023737 001124 001164 CMP SGDDAT.$TMPO ° ;COMPARE THE BITS 

001414 BEQ 6 *BR IF OK 

013737 001126 (91174 MOV SBDDAT. STMP4 COPY “BAD DATA’ 

042737 010000 (01174 BIC NED, $TMP4 :CLEAR THE MASKED BITS 

053737 001174 (01124 BIS SIMPL. $GDDAT  :°OR' WITH GOOD DATA FOR TYPEOUT 

005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 

000240 64$: NOP 

005737 001250 TST CKERR ;WAS NED* SET ? 

001403 BEQ +10 F NOT 

012760 000040 000010 MOV WCLR.RMCS2(RO) ISSUE MASSBUS INIT TO CLEAR "NED* 

113760 001226 000010 MOVB _— PORTA, RMCS2(RO) SELECT P 

013737 001226 001240 MOV PORTB BTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

005760 000012 TST RMDS (RO) sSEE IF DRIVE (PORT B) PRESENT 

005037 001250 CLR CKERR [CLEAR THE "CHECK ERROR’ INDICATOR 

016037 000010 001126 MOV RMCS2(RO).$BDDAT. ;:GET CONTENTS OF RMCS 

012737 000010 001122 MOV #RMCS2,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

060037 001122 ADD RO, SBDADR ;ADD_RH/RM BASE ADDRESS 

005037 001124 CLR S$GDDAT WHAT REGIST ER SH BULD BE 

013737 001126 001164 MOV SBDDAT.$TMPO  :MOVE REGISTER CONTENTS TO *STMPO* 

042737. 167777 001164 BIC #°CNED.$TMPO SAVE SPECIFIED BITS 

023737 001124 001164 CMP $GDDAT.$TMPO ° ;COMPARE THE BITS 

001414 BEQ 7BR IF OK 

013737 001126 001174 MOV SBDDAT STMP4 COPY “BAD DATA’ 

042737 010000 001174 BIC NED, $TMP4 *CLEAR THE MASKED BITS 

053737 001174 001124 BIS SIMPG. $GDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 

005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 

000240 66$: NOP 

005737 001250 TST CKERR :WAS "NED’ SET ? 

001403 BEQ .+10 ‘BR IF NOT 

012760 000040 000010 MOV WCLR.RMCS2(RO) ISSUE MASSBUS INIT TO CLEAR ‘NED* 
sCONFIRM THAT DRIVE IS AN RM80 AND IS DUAL PORT 

113760 001224 000010 MOVB _—sC—PORTA, RMCS2 (RO) >SELECT PORT 

013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 

016037 000026 001126 MOV RMDT(RO),$BDDAT °:GET CONTENTS OF RMD 

012737 000026 001122 MOV ARNDT SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

060037 001122 ADD SBDADR ;ADD RH/RM BASE ADDRESS 

012737 024026 001124 MOV RO Sab26 SGDDAT WHAT REGIS? <R_SHOULD BE 

023737 001124 001126 CMP SGDDAT,.$BDDAT 1S THE REGISTER OK ? 

ie ae shes 

005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 

000240 68$: NOP 

113760 001226 000010 MOVB _—s— PORT, RMCS2(RO) >SELECT PORT B 

013737 001226 001240 MOV PORTB.PTNBR move P PORT ADDRESS TO LOCATION FOR TYPEOUT 

005037 001250 CLR CKERR CLEAR THE "CHECK ERROR’ INDICATOR 


————eE 


Dd 
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004062 016037 000026 001126 MOV RMDT (RO), SBDDAT “GET CONTENTS OF R 
004070 012737 000026 001122 MOV #RNDT $BDAD ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
004076 060037 001122 ADD SBDADR DD RH/RM BASE ADDRESS 
004102 012737 024026 001124 MOV #084020 $GDDAT iOHAT REGISTER SHOULD BE 
004110 023737 001124 001126 CMP T,$BDDAT 1S THE REGISTER 
004116 001403 BEQ ae ‘BR IF OK 
004120 104001 EMT 
004122 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
” 004126 000240 70$: NOP 
138 ;VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 
164 004130 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT POR 
013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004144 005037 001250 CLR CKERR CLEAR THE "CHECK ERROR’ INDICATOR 
004150 016037 000012 001126 MOV RMDS (RO), SBDDAT GET CONTEN nie OF RMDS 
012737 000012 001122 MOV #RMDS , SBDAD :FORM. REGISTER ADDRESS OF ERROR MESSAGE 
060037 001122 ADD RO, SBDADR ADD_RH/RM BASE ADDRESS 
004170 012737 001000 001124 MOV #PGM, SGDDAT sunit REGISTER SHOULD BE 
004176 013737 001126 001164 MOV SBDDAT.$TMPO ° :MOVE REGISTER CONTENTS TO "STMPO' 
004204 042737 176777 001164 BIC #°CPGM, $THPO sSAVE SPECIFIED BITS 
004212 023737 001124 001164 CMP SGDDAT. $TMP ;COMPARE THE BITS 
004220 001414 BEQ 72 TBR IF OK 
004222 013737 001126 001174 MOV SBDDAT.$STMP4 COPY "BAD DATA’ 
004230 042737 001000 001174 BIC #PGM, STMP4 [CLEAR THE MASKED BITS 
okra FREE HA 001174 001124 eat STMP4, SGDDAT "OR" WITH GOOD DATA FOR TYPEOUT 
004246 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
004252 000240 72$: NOP 
004254 005037 001250 CLR CKERR CL LEAR THE "CHECK ERROR’ INDICATOR 
004260 016037 000012 001126 MOV RMDS (RO), SBDDAT CONTENTS O 
004266 012737 000012 001122 MOV #RMDS,$BDADR ;:F oka REGISTER ADDRESS OF ERROR MESSAGE 
004274 060037 001122 ADD RO, $BDADR D H/R /RM BASE ADDR ESS 
004300 012737 010600 001124 MOV WMOL'DPR'DRY,SGDDAT _;WHAT REGIS/ER SHOULD BE 
004306 013737 001126 001164 MOV SBDDAT.$TMPO. ——«; MOVE REGISTER CONTENTS TO "$TMPO' 
004314 042737 167177 001164 BIC #°C10600,$TMPO :SAVE SPECIFIED BITS 
004322 023737 001124 001164 CMP SGDDAT, $TMPO ZCOMPARE TH 
004330 001414 BEQ 68 F OK 
004332 013737 001126 001174 MOV $BDD. MP4 - :COPY “BAD DATA’ 
004340 042737 010600 001174 BIC P00. SimPa *CLEAR THE MASKED BITS 
004546 053757 001174 001124 BIS $TMP4,$GDDAT  :°OR* WITH GOOD DATA FOR TYPEOUT 
004356 bos3 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
004362 000240 74$: NOP 
004364 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
004372 013737 001226 001240 MOV POR T8,PTNR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004400 005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR' INDICATOR 
004404 016037 000012 001126 MOV RMDS(RO) ,SBDDAT "GET CONTENTS OF RMDS 
004412 012737 000012 001122 MOV #RMDS, SBDADR ;FORM RM REGISTER ADDRESS OF ERROR MESSAGE 
004420 060037 00112 ADD RO, $BDADR RH/RM BASE ADDR ESS 
004424 187 7 0010 901124 MOV #PGM, SGDDAT WHAT REGISTER SHOULD BE 
004432 013737 001126 01164 MOV SBDDAT.$TMPO ' ;MOVE REGISTER CONTENTS TO "S$TMPO' 
004440 042737 176777 001164 BIC #°CFGM.STMPO ;SAVE SPECIFIED BITS 
004446 023737 001124 001164 cM SGDDAT. *STMP ; COMPAR ETH E BITS 
004456 013737 001126 001174 MOV SBDDAT.STMP4 COPY "BAD DATA® 
464 042737 001000 001174 BIC #PGM, STMP4 SCLEAR THE MASKED BITS 


CZRNHAO 
11 
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NEUTRAL ACCESS TEST 
004472 053737 601174 001124 BIS STMP4,$GDDAT ; "OR* WITH GOOD DATA FOR TYPEOUT 
004500 104045 EMT 
004502 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
004506 000240 76$: NOP 
004510 005037 001250 CLR CKERR CL LEAR THE "CHECK ERROR’ INDICATOR 
004514 016037 000012 001126 MOV RMDS (RO) ,SBDDAT T CONTENTS 
0045¢2 012737 000012 001122 MOV #RMDS, SBDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
004530 060037 00117 ADD RO, $BDADR RH/RM BASE ADDRESS 
004534 012737 010600 001124 MOV #MOL!DPR!DRY,$GD vbat sWHAT REGISTER SHOULD BE 
004542 013737 001126 001164 MOV $8 p MOVE REGIST ER CONTENTS TO ‘$TMPO' 
004550 042737 167177 001164 BIC #°C10600,$TMPO :SAVE SPECIFIED BITS 
004556 023737 001124 001164 CMP SGDDAT,$TMPO ; COMPARE THE BI 
004564 001414 BEQ 78$ ‘BR IF OK 
004566 013737 001126 001174 MOV SBDDAT.$STMP4 COPY "BAD DATA’ 
004574 042737 010600 001174 BIC #10600, $TMP4 ZCLEAR T HE MASKED BITS 
004602 053737 001174 001124 BIS STMP4,$GDDAT | :°OR’ WITH GOOD DATA FOR TYPEOUT 
004612 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
004616 000240 78$: NOP 
:VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 
004620 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ;SELECT PORT A 
004626 016037 000030 001124 MOV RMSN(RO).$GDDAT :STORE THE PORT A SERIAL NUMBER 
004634 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT 
004642 016037 000030 001126 MOV RMSN‘RO) ,SBDDAT STORE THE PORT 8 SERIAL NUMBER 
004650 023737 001124 001126 CMP $GDDA’,$BDDAT ARE THEY THE SAME ? 
004656 001406 BEQ 1$ <BR IF THEY ARE 
004660 104003 EMT 3 
662 032777 100000 174250 BIT #Sw15,aSwi ;HALT ON ERROR ? 
004670 001001 BNE 1$ ‘BR IF SET = PROGRAM HAS ALREADY HALTED 
004672 000000 HALT SHALT, ,POSSIBLE CABLE CONNECTION PROBLEM 
004674 000004 1$: SCOPE SLOOP ? 
FARRAR RARER EAR EERE ERAE RARE RRAERERERERRRRARRRREERERRE ARERR 
:*TEST 2 PORT 'A’ SEIZE/TIMEOUT TEST 
+ SVERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
z* IT CAN BE RELEASED BY THE ONE SECOND TIMER. 
t* A, WRITE O'S INTO RMDA THROUGH PORT ‘A’; VERIFY THAT THE DRIVE 
i HAS BEEN SEIZED. 
:* B. READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT ‘B'; 
i VERIFY THAT O'S ARE READ FROM EACH REGISTER. 
t* (C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
* MEASURE THE DURATION OF THE TIMEOUT ONE SHOT 
* VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
i* NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 
+ RRRRRRRRRRRR RRR AER AREER ARARERER AREER ARERR AAA AREA ATES 
004676 TST2: 
004676 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
004702 001406 BEQ 2$ : NOT 
004704 100002 BPL 1$ ‘BR IF JUST ENTERED TEST 


SEQ 0043 


=m 


4 
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"SEIZE/TIMEOUT T 
004706 000137 903062 JMP EXEC :RETURN & GET NEXT TEST NUMBER 
004712 012737 177777 001300 1$: MOV #-1,KYB SSET SINGLE TEST INDICATOR 
00472 012737 004734 001106 28: MOV ATEST2, CE ADR SSETUP SCOPE LOOP ADDRESS 
004726 012737 004734 001110 aah MOV ATESTZ,$LPERR SETUP ERROR LOOP ADDRESS 
004734 112737 000002 001102 MOVB #2, $STSTNM sMOVE #2 TO TEST NUMBER 
004742 012706 001100 MOV WSTACK,SP SLOAD THE STACK POINTER 
ab 004746 012737 000002 001176 MOV #2 STIMES +;D0 2. ITERATIONS 
267 004754 012737 000240 177776 MOV #<5*32.>,a#PS | ;:SET PRIORITY TO 5 IN CASE LOOPING 
004762 005037 001262 CLR TIMEA CLEAR TIMEOUT VALUE FOR PORT A 
004766 005037 001264 CLR TIMEAP ;CLEAR ubbER TIMEOUT TOLERANCE 
004772 005037 001266 CLR TIMEAM :CLEAR LOWER TIMEOUT TOLERANCE 
;START THE TIMER 
004776 005037 001256 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
005002 012737 003720 001260 MOV #2000.,WATCH | :SET WATCH TO 2000. 
:SEIZE THE DRIVE THROUGH PORT A 
005010 113760 001224 000010 MOVB _—s~ PORTA, RMCS2(RO) >SELECT PORT A 
005016 013737 001224 001242 MOV PORTA.SEIZPT ;STORE SEIZING PORT'S ADDRESS 
005024 005060 000006 CLR RMDA(RO) sWRIT RADA. 
005030 113760 001226 000010 MOVB = PORTB, RMCS2(RO) °:SELECT PORT B 
005036 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005044 013737 001226 001244 MOV PORTB,OPPRT : OPPOSITE’ PORT ADDRESS 
005052 016037 000012 001126 MOV RMDS(RO),$BDDAT :SEE IF DRIVE SEIZED BY PORT A 
005060 010037 001122 MOV RO SBDADR ERH/RM BASE ADDR 
005 062737 000012 001122 ADD #RMDS.$BDADR § :GENERATE BAD REGISTER ADDRESS 
005072 005037 001124 CLR SGDDAT SREGISTER SHOULD BE ZERO 
005076 023737 001124 001126 CMP SGDDAT,$BDDAT 1S THE REGISTER ZERO 
005104 00140 BEQ 64$ ‘BR lr IT IS 
005106 104004 EMT 4 
005110 000137 006242 ee JMP 5$ sBYPASS REST OF THE SUBTEST 
005114 113760 001224 000010 MOVB _— PORTA, RMCS$2(RO) SELECT PORT A 
005122 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005130 016037 000012 001126 MOV RMDS(RO),$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
005136 042737 20001 001126 BIC #OM!PIP,$BDDAT sCLEAR DONT CARE BITS 
005144 012737 011600 061124 MOV #MOL 'PGM' DPR! DRY. SGDDAT ZEXPECTED STATUS 
005152 013737 001124 001166 MOV SGDDAT,$TMP1 ;USE GOOD DATA AS A MASK 
005160 005137 001166 COM $TMP1 sCOMPLEMENT THE EXPECTED STATUS 
005164 013737 001126 001164 MOV SBDDAT, $TMPO ; SAVE THE ACTUAL 
005172 043737 001166 001164 BIC STMP1,$TMPO LEAR UNWANTED Bits 
005200 023737 001124 001164 CMP SGDDAT, STMPO ARE THE EXPECTED STATUS BITS SET ? 
005206 001401 BEQ 45$ BR IF THEY ARE 
005210 104005 EMT 5 
005212 000240 65$: NOP 
:READ THE DRIVE REGISTERS THROUGH PORT B AND STORE THEM ON THE STACK 
005214 113760 001226 000010 MOVB _ PORTB.RMCSZ2(RO) ;SELECT PORT B 
009222 013737 001226 001240 MOV PORTB,PT “MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005230 016046 000046 MOV WMEC2(RO),-(SP) ;STORE REGISTER RMEC2, PORT B, FOR CHECK 
005234 016046 000044 MOV ECI(RO).=(SP) :SIORE REGISTER RMEC1, PORT B, FOR CHECK 
005240 016046 000030 MOV RMSN(RO),<(SP) STORE REGISTER RMSN, PORT 8, FOR CHECK 
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005244 016046 000034 MOV RMDC(RO),-(SP) ;STORE REGISTER RMDC, PORT B, FOR CHECK 
005250 016046 00003 MOV RMOF(RO).=(SP) :STORE REGISTER RMOF. PORT B, FOR CHECK 
005254 016046 00004 MOV RMER2(ROS,-(SP) :STORE REGISTER RMER2, PORT B, FOR CHECK 
005260 016 00 MOV RMLA(RO),-(SP) ;ST EGISTER RMLA, PORT 8, FOR CHECK 
005264 016046 000026 MOV RMDT(RO).=(SP) STORE REGISTER RMDT, PORT B, FOR CHECK 
005270 016 000006 MOV RMDA(RO).=(SP) :STORE REGISTER RMDA, PORT B. FOR CHECK 
005274 016046 000024 MOV RMMR1(ROS,-(SP) :STORE REGISTER RMMR1, PORT B, FOR CHECK 
095300 016046 000014 OV RMER1(RO).=(SP) :STORE REGISTER RMER1, PORT B, FOR CHECK 
:WAIT FOR PORT A TO TIMEOUT | 
005304 005760 000012 1$: TST RMDS (RO) :WAIT FOR THE DRIVE TO TIMEOUT 
005310 001006 BNE es *BR WHEN TIMEOUT OCCURS 
005312 005737 001260 TST WATCH *CHECK WATCH 
005316 001372 BNE 1$ *BR IF NOT ZERO 
005320 104036 EMT 36 
005322 000137 005726 JMP is sBYPASS TIMEOUT TIME CHECK 
005326 012737 000340 177776 28: MOV #<7%32.>,@4PS SET PRIORITY TO 7 TO STOP CLOCK 
5334 013737 001256 001262 MOV TIME, TIMEA *SAVE THE ELAPSED TIME FOR PORT A 
005342 004537 066254 JSR R5, TOLER [CALCULATE THE TOLERANCE 
005346 001262 -WORD TIMEA S TIMEOUT VALUE FOR PORT A 
005350 012637 001264 MOV (SP)+,TIMEAP § :425% TOLERANCE 
005354 012637 001266 MOV (SP)+,TIMEAM § :=25% TOLERANCE 
:VERIFY THAT THE TIMEOUT ONE-SHOY IS AT LEAST 500 MS 
005360 023727 001256 000764 CMP TIME ,#500. :WAS MEASURED TIME AT LEAST 500 MS? 
005366 103001 BHIS 3$ ‘BR IF IT WAS 
005370 104055 EMT 55 
:VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 
005372 012737 000240 177776 3$: MOV #<5%32.>,a#PS RESTORE PRIORITY TO 5 
SVERIFY THAT THE DRIVE IS STILL IN NEUTRAL ’ 
005400 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR '* INDICATOR 
5404 012737 000012 001122 MOV #RMDS,SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
005412 040037 001122 ADD RO, $BDADR [ADD THE 1/0 BASE ADDRESS 
5416 012737 011600 001124 MOV #MOL'PGM'DPR!DRY.SGDDAT ;COMPARISON CONSTANT 
005424 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A. 
005432 016037 000012 001170 MOV RMDS(RO) ,STMP2 | :GET THE DRIVE STATUS REGISTER FROM PORT A. 
005440 042737 024001 001170 BIC #PIP'WRL'OM, STMP2 sCLEAR DONT CARES 
005446 013737 001170 001164 MOV STMP2, STMPO sCOPY IT INTO *STMPO' 
005454 042737 100100 001164 BIC WATA'VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
005462 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
005470 016037 000012 001172 MOV S(RO) , STMP “GET THE DRIVE STATUS REGISTER FROM PORT B. 
005476 042737 024001 00117 BIC #PIP!WRLIOM,STMPS :CLEAR DONT CARES 
005504 013737 001172 001166 MOV $TMP3,STMP1 3COPY IT INTO *STMP1' 
005512 042737 100100 001166 BIC HATA'VV,$TMP1  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
005520 023737 001164 001166 CMP STMPO, STMP1 ‘1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
005526 001006 BNE 66$ : 
005530 005737 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
005534 001037 E 68$ ‘BR IF NOT 
005536 104046 EMT 46 
005540 90013 005724 JMP 70$ sBYPASS THE REST OF THE CHECKS 
005544 013737 001170 001126 66$: MOV STMP2,$SBDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
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67$: 
68$: 


69S: 


70$: 


PORTB,P SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
PORTB, “RACSS(ROD sSELECT P 

$TMPO [SEE IF STATUS EQ 0 FROM PORT A. 

67$ 2BR IF ZER 

PORTA,PTNBR : EIZING Ay! IF TEST DRIVE NOT IN NEUTRAL 
STMP3,SBDDAT ;"BAD DATA’ i a ERROR TYPE OUT 

PORTA,RMCS2(RO) ;SELECT PORT A 

STMP1 sae iE wor STATUS EQ ZERO FROM PORT B. 


68 
#-1,RELERR :SET "RELEASE ERROR’ INDICATOR 
STMP2 ,SBDDAT CHANGE PORT. ARLES WHEN RMDS READ 


TNBR 

WATA!VV,$BDDAT DON'T CHECK ATTN BIT OR VV BIT 
$GDDAT,$BDDAT ALL BITS OK 

69$ ‘BR IF OK OKon PORT A. 


STMP3, a 3 CHECK _RMDS Res BIT FAILURES - FROM PORT B. 
PORTB,P ; CHANGE PORT NUMB 

HATA! VV TSBDDAT [DON'T CHECK ATTN BIT OR VV BIT 

—s , SBDDAT iSEE IF READ OK FROM PORT B. 


zCHECK THE REGISTERS STORED THROUGH PORT B. ALL REGISTERS SHOULD BE ZERO. 
ZTHE REGISTERS ARE STORED ON THE STACK. 


4$: 


PORTB ,PTNBR CHANGE ‘PORT NUMBER’ TO THE OPPOSITE PORT 
RO, DR BASE ADDRESS FOR py gL RMER1 
#RMER1,$BDADR ADDRESS OF RMER1 FOR TYPEOUT 

(SP)+,$BDDAT sCHECK THE STORED CONTENTS OF RMER1 

+4 ZCONTENTS ZERO ? 


4 
RO, $BDADR sBASE ADDRESS FOR REGISTER RMMR1 
#RMMR1.SBDADR ADDRESS OF RMMR1 FOR TYPEOUT 

(SP)+,$BDDAT | :CHECK THE STORED CONTENTS OF RMMR1 


j +4 ZCONTENTS ZERO ? 

RO,SBDADR :BASE ADDRESS FOR po yg tL RMDA 
#RMDA, SBDADR zADDRESS OF RMDA FOR TYPEOUT 
(SP)+,$BDDAT ZCHECK THE STORED CONTENTS OF RMDA 
4° ZCONTENTS ZERO ? 

RO, SBDADR sBASE ADDRESS + aecister RMDT 
#RMDT , SBDADR ZADDRESS OF RMDT FOR TYPEOUT 

(SP) +; $BDDAT [CHECK THE STORED CONTENTS OF RMDT 
j +4 :CONTENTS ZERO ? 

RO, $BDAD sBASE ADDRESS FOR necisren RMLA 


GRALA. SBDADR ZADDRESS OF RMLA FOR TYPEOU 
(SP) +, $BDDAT 3CHECK THE STORED CONTENTS OF RMLA 
+4 SCONTENTS ZERO ? 


6 

RO, $8 sBASE ADDRESS FOR REGISTER RMER2 
ORheRe. SEDADR SADDRESS OF RMER2 FOR TYPEOU 
(SP)+,$BDDAT | :CHECK THE STORED CONTENTS OF RMER2 


SEQ 0046 


EN 
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T2 PORT 'A’ SEIZE/TIMEOUT TEST 
006104 001401 BEQ +4 CONTENTS ZERO ? 
006106 10400 EMT é 
006110 010 001122 MOV _—«RO, SBDADR {BASE ADDRESS FOR REGISTER RMOF 
006114 O62 7 000032 001122 ADD - #RMOF,S$BDADR = ADDRESS OF RMOF FOR TYPEOUT 
006122 012637 901126 MOV (SP)+;SBDDAT — LHECK THE STORED CONTENTS OF RMOF 
006126 001401 BEQ +4 [CONTENTS ZERO ? 
006130 104006 EMT 3s «# 
006132 010037 001122 MOV _—- RO, SBDADR BASE ADDRESS FOR REGISTER RMDC 
006136 062737 000034 001122 ADD § #RMDC,$BDADR § :ADDRESS OF RMDC FOR TYPEOUT 
006144 012637 001126 MOV (SP)+;SBDDAT CHECK THE STORED CONTENTS OF RMDC 
006150 001401 BEQ +4 [CONTENTS ZERO 
006152 104006 EMT 
006154 010037 001122 MOV —-RO, SBDADR BASE ADDRESS FOR REGISTER RMSN 
006160 062737 000030 001122 ADD  &RMSN,$BDADR §§ : ADDRESS OF RMSN FOR TYPEOUT 
006166 012637 001126 MOV (SP)+;$BDDAT CHECK THE STORED CONTENTS OF RMSN 
006172 001401 BEQ +4 ;CONTENTS ZERO ? 
006174 104006 EMT = « 
006176 010037 001122 MOV _— RO, SBDA :BASE ADDRESS FOR REGISTER RMECT 
006202 062737 000044 001122 ADD ARME CT -SBDADR SADDRESS OF RMEC1 FOR TYPEOUT 
006210 012637 001126 MOV (SP)+,$BDDAT CHECK THE STORED CONTENTS OF RMEC1 
006214 001401 BEQ +4 [CONTENTS ZERO ? 
006216 104 EMT 3=s« 
006220 010037 001122 MoV _—- RO, $B {BASE ADDRESS FOR REGISTER RMECZ 
006224 062737 000046 001122 Moy 6 CARMECD, SEDADR ZADDRESS OF RMEC? FOR TYPEOUT 
006232 012637 001126 MOV (SP)+,$BDDAT CHECK THE STORED CONTENTS UF RMEC2 
236 001401 BEQ +4 [CONTENTS ZERO ? 
006240 104006 EMT = 
006242 000004 5$: SCOPE LOOP ? 
287 FERRARO R ARERR REERERERARARERREERERERRARRRRRAERRERERR ARERR ES 
;STEST 3 PORT 'B' SEIZE/TIMEOUT TEST 
;*VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
:* IT CAN BE RELEASED BY THE ONE SECOND TIMER. 
t® A. WRITE 0°S INTO RMDA THROUGH PORT 'B'; VERIFY THAT THE DRIVE 
i* HAS BEEN SEIZED. 
;* B. READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT ‘A’; 
3 VERIFY THAT 0°S ARE READ FROM EACH REGISTER. 
3* 
t® (C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
38 MEASURE THE DURATION OF THE TIN MEOUT ONE 
3 VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
:* NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 
*: s REREEAEEAERERERRARAEREREEEEREREREREREREAAEEAERARAAEAEARAAAEREEKEEEEE 
006244 1$13: 
006244 005737 001300 TST —sKYBCTL PERFORMING ONLY SINGLE TEST 2 
006250 001406 BEQ ss S$ T 
006252 100002 BPL 1$ 'BR IF JUST ENTERED TEST 
006254 000157 003062 JMP ss EXEC SRETURN & GET NEXT TEST NUMBER 
006260 012737 177777 001300 1$: MOV ss #1, KYBCTL SET SINGLE TEST INDICATOR 
006266 012737 006302 001106 2$: MOV  ATEST3,$LPADR SETUP SCOPE LOOP ADDRESS 
006274 012737 006302 001110 #TESTS,.$LPERR SETUP ERROR LOOP ADDRESS 


006302 TESTS: 
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#3,$TSTNM 
#STACK,SP 
+e STIMES 


#<5*32.>,a8PS 
TIMEB 

TIMEBP 
TIMEBM 


START THE TIMER 


CLR 
MOV 


:SEIZE THE DRIVE THROUGH PORT B 


64$: 


65$: NOP 
READ THE DRIVE 


TIME 
#2000. ,WATCH 


PORTB, wr Se tne? 
PORTB, SEIZP 
RMDA(RO) 
PORTA,RMCS2(RO) 
PORTA,PT 3 


PORTA.OPPRT 
RMDS (RO) , SBDDAT 
RO, SBDADR 
#RMDS , SBDADR 


G 
SGDDAT , SBDDAT 
64$ 


4 
5$ 
PORTB, paces? 


PORTB,PTNB Vv 
RMS (RO) SBDDAT 
#OM!PIP DAT 2CL 
#MOL !PGM'DPR! DRY ,SGDDAT 
SGDDAT ,STMP1 2USE GOOD DAT 


$TMP 
SBDDAT, STMPO 
STMP1,$TMPO 
SGDDAT, $TMPO 
65$ 


sMOVE #3 TO TEST NUMBER 
[LOAD _THE STACK POINTER 
33D0 2. ITERATIONS 


SET PRIORITY , 2 u's CASE oe 
;CLEAR TIMEOUT FOR PORT B 


sCLEAR UPPER TIMEOUT TOLERANICE 
*CLEAR LOWER TIMEOUT TOLERANCE 


— COUNTER 


;SELECT PORT 


B 
+ STORE SEIZING PORT'S ADDRESS 
TE RMDA 


; SELECT 


PORT 
i PORT ADDRESS TO 0 LOCATION FOR TYPEOUT 


:"OPPOSITE’ PORT A 
7SEE IF DRIVE SEIZED BY PORT B 
;RH/RM BASE 


ADDRESS 

; GENERATE BAD REGISTER ADDRESS 
sREGISTER SHOULD BE ZERO 

31S THE a lean ZERO 

BR IF IT IS 

sBYPASS REST OF THE SUBTEST 

; SELECT 
PORT 

*SEE IF 


PORT B 
ADDRESS TO LOCATION FOR TYPEOU: 
SEIZING PORT SEES CORRECT STATUS 
DONT CARE BITS 


Ae ey STATUS 


MASK 
3 COMPL EMENT. THE EXPECTED STATUS 
SSAVE THE ACTUAL STA 
[CLEAR UNWANTED BIT the 
TARE THE EXPECTED STATUS BITS SET ? 
7BR IF THEY ARE 


REGISTERS THROUGH PORT A AND STORE THEM ON THE STACK 
PORTA,RMCS2(RO) gSELSer PORT A 

PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMEC2(RO) ,=(SP) STORE "REGISTER RMEC2, PORT A, FOR CHECK 
RMEC1(RO),-(SP) ;STORE REGISTER RMEC1, PORT A, FOR CHECK 
RMSN(RO),-(SP) ;STORE REGISTER RMSN, PORT A, FOR CHECK 
RMDC(RO),-(SP) ;STORE REGISTER RMDC, PORT A, FOR CHECK 
RMOF(RO),-(SP) ;STORE REGISTER RMOF, PORT A, FOR CHECK 
RMER@ (ROS .- (SP) TSTORE REGISTER RMERC, PORT A, FOR CHECK 
RMLA(RO),-(SP) ;STORE REGISTER RMLA, PORT A, FOR CHECK 
RMDT(RO),-(SP) ;STORE REGISTER RMDT, PORT A, FOR CHECK 


SEQ 0048 
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MOV RMDA(RO) ,=(SP) 
MOV RMMR1 (ROS ,-(SP) 
MOV RMER1(RO),=(SP) ; 
:WAIT FOR PORT B TO TIMEOUT 
1$: TST RMDS (RO) 
BNE $ 
TST WATCH 
BNE 1$ 
EMT 36 
JMP 4$ 
2$: MOV #<7*32.>,a4PS 
MOV TIME, TIMEB 
JSR R5,TOLER 
.WORD TIMEB 
MOV (SP)+, TIMEBP 
MOV (SP) +, TIMEBM 
VERIFY 
CMP TIME ,#500. 
BHIS 3$ 
EMT 
:VERIFY THAT THE DRIVE RETURNED 
3$: MOV #<5%32.>,a4PS 
:VERIFY THAT THE DRIVE IS STILL 
CLR RELERR 
MOV #RMDS, SBDADR 
ADD RO, SBDADR SADD 
MOV #MOL !PGM!DPR!DRY.$G 
MOVE PORTA, RMCS2 (RO) SSELECT 
BIC Fee URL LOM, STMPE 
MOV $TMP2, $TMPO 
BIC HATA! VV, $TMPO 
MOVB - PORTB, RMCS2(RO) 
MOV RMDS (RO) , $T 
BIC #PIP! WRL 
MOV TMP STM 
BIC HATA! VV,STMP1 
CMP TMPO, $T 
BNE 66$ 
TST $TMPO 
BNE 68$ 
EMT 46 
JMP 70$ 
66$: MOV STMP2, $BDDAT 
MOV PORTB,PTNBR 
MOVB PORTB-RACS2(RO) 
TST $TMPO 
BEQ 67$ 
MOV PORTA, PTNBR 


R RMDA, PORT A, FOR CHECK 


ISTE 
i STORE REGISTER RMMR1, PORT A, FOR CHECK 


R RMER1, PORT A, FOR CHECK 


sWAIT FOR_THE DRIVE TO TIMEOUT 
BR Wi yt RS 
CHECK WA 


wR eal occu 


3BR IF NOT FERO 
BYPASS ie TIME CHECK 
3SET PRIORITY TO 7 TO STOP CLOCK 
ZSAVE THE ELAPSED TIME FOR PORT B 
: CALCULATE THE TOLERANCE 
TIMEOUT VALUE FOR PORT B 
7+25% TOLERANCE 
37-25% TOLERANCE 
THAT THE TIMEOUT ONE=SHOT IS AT LEAST 500 MS 


zWAS MEASURED TIME AT LEAST 500 MS? 
3BR IF IT WAS 


TO NEUTRAL AFTER PORT B TIMED OUT 
sRESTORE PRIORITY TO 5 
IN NEUTRAL 


CLEAR THE ‘RELEASE ERROR ° INDICATOR 
FORM, THE ADDRESS OF RMDS FOR TYPEOUT 


THE 1/0 BASE ADDRESS 


DDAT Panacea CONSTANT 
T THE DRIVE STATUS REGISTER FROM PORT A. 
DONT CARES 


3 COPY 11° INTO *$TMPO' 


CLEAR 
: SELECT P 


:COPY 
CLEAR PORT DEPENDENT BITS FROM THE COPY 


31S THE aad REGISTER THE SAME FROM BOTH PORTS ? 


TT 


ree DEPENDENT BITS FROM THE COPY 
wae DRIVE “STATUS REGISTER FROM PORT B. 
a ON’ CARES 


*STMPT 


SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
:BR IF NOT 


YPAS 
UP POSSIBLE BAD DATA FOR ERROR MESSAGE 


ep 
a Pd 


S THE REST OF THE CHECKS 
NG PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
F STATUS EQ 0 FROM PORT A. 


ZERO 
NG PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


—mo 
—n 
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67$: 
68$: 


69$: 


70$: 


$TMP3,S$BDDAT 


;"BAD DATA’ FOR ERROR TYPE OUT 
PORTA,RMCS2(RO) 3S 
STMP1 


LECT PORT A. 
si" SEE IF STATUS EQ ZERO FROM PORT B. 
4-1 ,RELERR *SET "RELEASE ERROR’ INDICATOR 
STMP2,$BDDAT ; LOOK FOR BIT FAILURES WHEN RMDS READ 

* CHANGE PORT Ni 
WATA!VV,$BDDAT DON'T CHECK ATIN BIT OR VV BIT 
$GDDAT,$BDDAT ALL BITS OK ? 
9s :BR IF OK FROM PORT A. 
STMP3, SBDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
PORT GE PORT N 


B,PTNBR 
#ATA! VV, SBDDAT {DON'T CHECK ATIN BIT OR VV BIT 
SEDDAT , SBDDAT SEE IF READ OK FROM PORT B. 


ZCHECK THE REGISTERS STCRED THROUGH PORT A. ALL REGISTERS SHOULD BE ZERO. 
TTHE REGISTERS ARE STORED ON THE STACK. 


4$: 


a git ,PTNBR sCHANGE ‘PORT NUMBER* TO THE OPPOSITE PORT 
RO, R 3BASE ADDRESS FOR pp ag RMER1 

PRAER $BDADR ;ADDRESS OF RMER1 FOR TYPEOUT 

(SP)+, $BDDAT sCHECK THE STORED CONTENTS OF RMER1 

.+4 SCONTENTS ZERO ? 


RO,$BDADR sBASE ADDRESS FOR po gg Me, RMMR1 
#RMMR1,$BDADR ADDRESS OF RMMR1 FOR TYPEOUT 
(SP) +, $BDDAT ZCHECK THE STORED CONTENTS OF RMMR1 


3° +4 3CONTENTS ZERO ? 

RO,$BDADR sBASE ae FOR REGISTER RMDA 
ARMDA , $BDADR ZADDRESS OF RMDA FO 

(SP) +,$BDDAT sCHECK THE STORED CONTENTS OF RMDA 
+4 ZCONTENTS ZERO ? 


6 

RO, $BDADR zBASE ADDRESS FOR REGISTER RMDT 
#RMDT , $BDADR SADDRESS OF RMDT FOR TYPEOUT 

(SP) +, $BDDAT sCHECK THE STORED CONTENTS OF RMDT 
+4 :CONTENTS ZERO ? 


RO, $BDADR ;BASE mont FOR necister RMLA 
#RMLA, SBDADR ZADDRESS OF RMLA FOR TYPEOUT 

(SP) +, $BDDAT ZCHECK THE STORED CONTENTS OF RMLA 
+4 :CONTENTS ZERO ? 


RO,$B sBASE ADDRESS FOR ersisies RMER2 
GRMERD, SBDADR ZADDRESS OF RMER2 FOR TYPEOUT 
(SP) +, $BDDAT sCHECK THE STORED CONTENTS OF RMER2 
+4 ZCONTENTS ZERO ? 


RO, $BDADR sBASE ADDRESS FOR necister tad 
#RMOF , SBDADR SADDRESS OF RMOF F 
(SP)+,$BDDAT 


OR TYPEOUT 
ZCHECK THE STORED CONTENTS OF RMOF 





SEQ 0050 


“ao 
= 
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007474 90130) BEQ +4 sCONTENTS ZERO ? 


007476 104 EMT = & 
907300 010037 001122 MOV _—RO, SBDADR JBASE ADDRESS FOR REGISTER RMDC 
007504 062737 000034 001122 ADD #RMDC,$BDADR = :ADDRESS OF RMDC FOR TYPEOUT 
007512 012637 001126 MOV (SP)+,SBDDAT — ;CHECK THE STORED CONTENTS. OF RMDC 
007516 001401 BEQ +4 [CONTENTS ZERO ? 
007520 104006 EMT = 
007522 010037 001122 MOV _—RO, SBDADR BASE ADDRESS FOR REGISTER RMSN 
007526 062737 000030 001122 ADD  #RMSN,$BDADR = :ADDRESS OF RMSN FOR TYPEOUT 
007534 012637 001126 MOV (SP)+,SBDDAT CHECK THE STORED CONTENTS OF RMSN 
007540 001401 BEQ +4 SCONTENTS ZERO 
007542 104006 emT = & 
007544 010037 001122 MOV _—RO, SBDADR :BASE ADDRESS FOR REGISTER RMECI 
007550 062737 000044 001122 ADD  #RMECT,S$BDADR ADDRESS OF RMEC1 FOR T 
007556 012637 001126 MOV (SP)+,$BDDAT CHECK THE STORED CONTENTS OF RMECI 
007562 001401 BEQ +4 SCONTENTS ZERO ? 
007564 104006 EMT = « 
007566 010037 001122 MoV _—« RO, SBDADR BASE ADDRESS FOR REGISTER RMEC2 
007572 062737 000046 001122 "DD —s«BRMECOSBDADR = SADDRESS OF RMEC? FOR TYPEOUT 
007600 012637 001126 MoV (SP)+,$BDDAT — ;CHECK THE STORED CONTENTS. OF RMEC2 
007604 001401 BEQ +4 [CONTENTS ZERO ? 
007606 104006 EMT =«ss«&& 
007610 000004 5$: SCOPE LOOP ? 
504 
305 RRR EERE ERR ERERERERREREE ERE RERERERRRERERAERE AERRRRE 
;STEST 4 PORT 'A* SEIZE/RELEASE TEST 
;ATEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
t* A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
3* 
j* B. SET VOLUME VALID AND CLEAR ANY ERROR 
te (C. ISSUE A RELEASE COMMAND THROUGH PORT'A'. VERIFY THAT THE DRIVE 
3s RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
3* , 
** 
+: KKK AEEREEEEREEEEEEEEEEERRAEKEEEEEEERERKREEEEEREREEAEEEREERE 
007612 TST4: 
007612 005737 001300 TST —sKYBCTL ;PERFORMING ONLY SINGLE TEST ? 
007615 001406 BEQ = $ F 
00762) 10000 BPL 1$ SBR IF JUST ENTERED TEST 
007622 000137 003062 JMP EXEC RETURN & GET NEXT TEST NUMBER 
007626 012737 177777 001300 1$: MOV = #1, KYBCTL [SET SINGLE TEST INDICATOR 
AN74%4 019737 007650 001106 28: MOV #TEST4.$LPADR SETUP SCOPE LOOP ADDRESS 
007642 012737 007650 001110 | MOV #TEST4.$LPERR SETUP ERROR LOOP ADDRESS 
007650 112737 000004 001102 MOVE #4. STSTNM ;MOVE #4 TO TEST NUMBER 
7656 012706 001100 MOV Ck, SP [LOAD THE STACK POINTER 
ae 007662 012737 000012 001176 MOV #10. STIMES [:D0 10. ITERATIONS 
339 


;START THE TIMER 


56 CLR TIME CLEAR THE ELAPSED if ng COUNTER 
20 001260 MOV #2000. ,WATCH sSET WATCH TO 2000. 


007670 005037 001 
007674 012737 003 





4 
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14 PORT ‘A* SEIZE/RELEASE TEST 





:SEIZE THE DRIVE AND SET VOLUME VALID 
;SEIZE THE DRIVE THROUGH PORT A 
007702 113760 001224 000010 MOVB _—s— PORTA, RMCS2(RO) -SELECT PORT A 
007710 013737 001224 001242 MOV PORTA, SEIZP :STORE SEIZING PORT'S ADDRESS 
7716 005060 000012 CLR RMDS (RO) :WRITE RM 
007722 013737 001226 001244 MOV PORTB,OPPRT :"OPPOSITE’ PORT ADDRESS 
7730 012760 000021 000000 MOV #21,RMCS1(RO) ri VOLUME VALID 
7736 005037 001250 CLR CKERR CLEAR T HE "CHECK ERROR’ INDICATOR 
7742 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMD 
007750 012737 000012 001122 MOV #RMDS, SBDADR ZFORM. REGISTER ADDRESS OF ERROR MESSAGE 
7756 060037 001122 ADD RO,$B H/RM ADDRESS 
007762 012737 000100 001124 MOV #vV, SGDDAT WHAT REGISTER SHOULD BE 
007770 013737 001126 001164 MOV SEDDA T :MOVE REGISTER VEONTENTS TO "$TMPO' 
007776 042737 177677 001164 BIC SPW STHPO :SAVE SPECIFIED BITS 
1 023737 001124 001164 CMP Scobat. $TMPO  ;COMPARE THE 
010012 001414 BEQ ra :BR IF OK 
010014 013737 001126 001174 MOV SBDDAT.$TMP4 §: COPY ‘BAD DATA‘ 
010022 042737 000100 001174 BIC #VV, :CLEAR THE MASKED BITS 
910030 093737 001174 001124 BIS $TMP4,$GDDAT :"OR" WITH GOOD DATA FOR TYPEOUT 
010040 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
010044 000240 66$: NOP 
010046 012760 000040 000010 MOV #CLR,RMCS2(RO) ZCLEAR DRIVE 
zRELEASE THE DRIVE FROM PORT A 
010054 113760 001224 000010 MOVB —PORTA,RMCS2(RO)_ :SELECT PORT A 
010062 013737 001224 001240 MOV PORTA,PTNBR MOVE PORT ADDRESS TO LOCATION — TYPEOUT 
010070 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT A 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
010076 005037. 001254 CLR RELERR ZCLEAR THE "RELEASE ERROR ' INDICATOR 
010102 012737 000012 001122 MOV #RMDS, SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
010110 060037 001122 ADD RO, $BDADR ‘ADD THE 1/0 BASE ADDRESS 
010114 012737 011600 001124 MOV #POL '!PGM!DPR!DRY.$GDDAT : COMPAR ISON CONSTANT 
010122 113760 001224 000010 - MOVB PORTA, RMCS2(RO) :SELECT PORT 
010130 016037 000012 001170 MOV RMDS (RO). $T “GET THE DRIVE STATUS REGISTER FROM PORT A. 
010136 042737 024001 001170 BIC #PIP!WRLIOM, STMP2 sCLEAR DONT CARES 
010144 013737 001170 001164 MOV STMPS STHPO sCOPY IT INTO *$TMPO' 
010152 042737 100100 001164 BIC WATA!VV,$TMPO CLEAR PORT ,PEPENDENT BITS FROM THE COPY 
010160 113760 001226 000010 MOVB _—sC—wPORTB, Rage cRO> 3S SELECT P 
010166 016037 000012 001172 MOV RMDS (RO) ,$ T THE ORIVE “STATUS REGISTER FROM PCRT B. 
010174 042737 024001 001172 BIC #PIP'WRL'OM,$T i :CLEAR DONT CARES 
010202 013737 001172 001166 MOV STMP3,$TMP1 7COPY IT INTO "STMP1' 
010210 042737 100100 001166 BIC WATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
010216 023/37 001164 001166 CMP $1mP0, STHPI 31S THE status REGISTER THE SAME FROM BOTH PORTS ? 
010226 005737 001164 TST $TMPO tREGISTERS ARE THE SAME: ARE THEY ZERO ? 
010232 001037 BNE 70$ :BR IF NOT 
010234 104046 EMT 46 
010236 000137 010422 JMP 72$ :BYPASS THE REST OF THE CHECK 
010242 013737 001170 001126 68$: MOV $TMF2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR seRROR MESSAGE | 
010250 013737 001226 001240 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL | 
| 
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‘A’ SEIZE/RELEASE 


001124 
001126 
100000 
001174 
001250 


001226 


69$: 
70$: 


71$: 


72$: 
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PORTB,RMCS2(RO) ; 
$TMPO ; 


69S 

PORTA, PTNBR 
$TMP3,SBDDAT —; 
PORTA.RMCS2(RO) : 
$TMP1 : 
70$ 
#~1,RELERR 
$TMP2, SBDDAT 
PORTA, PTNBR 
HATA! VV, $BDDAT 
SGDDAT, $BDDAT 
zis 

$TMP3, SBDDAT 
PORTB.PTNBR 


T 
#ATA!VV, S$BDDAT 
SGDDAT SBDDAT 


RELERR 
- +6 


1$ 
PORTA,RMCS2(RO) 
PORTA,PTNBR 


CKERR 2CL 
RMDS(RO) , SBDDAT 
#RMDS,SBDADR ;FO 


RO, SBDAD 
S$GDDAT 
SBDDAT,STMPOD 
#°CATA,STMPO 
SGDDAT ,STMPO 
SBDDAT,STMP4 
HATA, STMP4 
STMP4 ,$GDDAT 
CKERR 


PORTB,,RACS2(RO) 
PORT 


RTB,PTNER MOVE PORT ADDRE 


CKERR 

RMDS (RO) , S$BDDAT 
#RMDS,S$BDADR ; 
RO, SBDADR 
$Gb 


7 

SBDDAT, STMP4 
HATA, STMP4 
STMP4 ,$GDDAT 


ORT B. 
TATUS EQ 0 FROM PORT A. 


0 
PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
A‘ FOR ERROR TYPE OUT 


ORT A. 

TATUS EQ ZERO FROM PORT B. 
"RELEASE ERROR’ INDICATOR 

;LOOK FOR BIT FAILURES WHEN RMDS READ 
;CHANGE PORT NUMB 

ag CHECK ATTN BIT OR VV BIT 


TO me Ne 


:CHECK_RMDS FOR BIT FAILURES - FROM PORT 8B. 
GE PORT R 


‘DON'T CHECK ATTN BIT OR VV BIT 
*SEE IF READ OK FROM PORT B. 
“BR IF OK 


DID DRIVE RETURN TO NEUTRAL ? 
; F_IN NEUTRA 
O WAIT FOR DRIVE TO TIMEOUT 


E PORT ADDRESS TO LOCATION FOR TYPEOUT 
THE "CHECK ERROR’ INDICATOR 


OF RMDS 
S OF ERROR MESSAGE 
DDRESS 


HOULD BE 
a shee TO "STMPO* 


T ED BITS 
TH GOOD DATA FOR TYPEOUT 
3SET THE REGISTER COMPARE ERROR INDICATOR 


B 
SS TO LOCATION FOR TYPEOUT 
CHECK ERROR’ INDICATOR 
ENTS OF RMDS 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
:AD RH/RM BASE ADDRESS 
TER CONTENTS TO "STMPO' 


BAD DATA‘ 
3¢ THE MASKED BITS 
7'OR* WITH GOOD DATA FOR TYPEOUT 


cet aay DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-19 ° 
*A’ SEIZE/RELEASE TEST 


010672 104017 
910674 005137 


355 


——s 
So 
N 
S 
~N 
oS 
So 
Ww 
N 
Ww 
N 


10746 001406 


SOoCoCooooooOo 
2 Se 


011032 113760 


001250 
010740 


001226 
001226 
000012 


001260 


001256 
003720 


001226 


000010 
001240 


001300 
001106 
001110 
001102 


001176 


001260 


000010 


EMT 17 
ma COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
"MP 2$ :GO CHECK FOR LOOP ON ERROR 


:I1F RELEASE COMMAND DIDN'T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 
3TO RELEASE THE DRIVE 


1$: 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,,PTNBR sMOvE P PORT ADDRESS TO LOCATION FOK TYPEOUT 
TST RMDS (RO) WAIT FOR TIMEOUT TO RELEASE DRIVE 
BNE 2$ BR oe DRIVE RELEASED 
TST WATCH CHECK THE WATCH 
BNE 1$ ;BR IF NOT ZERO 
EMT 36 
2s: SCOPE :LOOP ? 


RRRRERR RRR REE EERE ERE RRARREERAERERRRERERERER RRR RRE REE 


:#TEST 5 PORT ‘B* SEIZE/RELEASE TEST 
aTEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 


ge 
j* A, SEIZE THE DRIVE THROUGH PORT ‘B* BY WRITING 0's INTO RMDS. 
i B. SET VOLUME VALID AND CLEAR ANY ERROR 
t® (C. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
:* RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
jisteteeenensneenensnccncevensnsnsnacasansatensasasasensasensases 
TSTS: 

Ist kyBCTL ;PERFORMING ONLY SINGLE TEST ? 

BPL 1$ <BR IF JUST ENTERED TEST 

JMP EXEC *RETURN & GET NEXT TEST NUMBER 
1$: MOV #-1, KYBCTL “SET SINGLE TEST INDICATOR 
2$: MOV #TESTS,S$LPADR  :SETUP SCOPE LOOP ADDRESS 
ie MOV ATESTS.SLPERR SETUP ERROR LOOP ADDRESS 

MOVB #5, STSTNM sMOVE #5 TO TEST NUMBER 

MOV #STACK,SP 3LOAD THE STACK POINTER 


MOV #10. STIMES 1:00 10. ITERATIONS 


START THE TIMER 


CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
MOV #2000. ,WATCH SET WATCH TO 2000. MS 


;SEIZE THE DRIVE AND SET VOLUME VALID 
3SEIZE THE DRIVE THROUGH PORT B 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B 


SEQ 0054 


“am 
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15 PORT "B' SEIZE/RELEASE T 
0110460 013737 001226 001242 MOV PORTB,SEIZPT STORE SEIZING PORT'S ADDRESS 
011046 003060 00012 CLR RMDS (RO) WRITE RMDS 
011052 0137 01224 001244 MOV PORTA. OPPRT ;*OPPOsiTE* PORT ADDRESS 
011060 012760 000021 000000 MOV #21,RMCS1(RO) rie VOLUME VALID 
011066 005037 001250 CLR CKERR SCLEAR THE ‘CHECK ERROR’ INDICATOR 
011072 016037 900012 001126 MOV RMDS(RQ) ,SBDDAT | :GET_ CONT ENTS OF RMDS 
011100 012737 000012 001122 MOV #RMDS , SBOADR rokm REGISTER ADDRESS OF ERROR MESSAGE 
011106 060037 001122 ADD RO, $BD ADD RH/RM BASE ADDRESS | 
011112 012737 000100 001124 MOV #VV,S$GDDAT _;WHAT REGISTER SHOULD 7 | 
011120 013737 001126 001164 MOV SBDDAT,S$TMPO —_;MOVE REGISTER CONTENTS TO "STMPO" 
011126 042737 177677 001164 BIC #*CVV,STMPO ; SAVE SPECIFIED BITS 
011134 023737 001124 001164 CMP SGDDAT,STMPO COMPARE THE BITS 
011142 001414 BEQ 66 TBR IF OK 
011144 013737 001126 001174 MOV SBDDAT.STMP4 § ;COPY “BAD DATA’ 
011152 042737 000100 001174 BIC AVV, STMPG [CLEAR THE MASKED BITS 
Biles O2 erat 001174 001124 eat STMP4 ,SGDDAT :*OR* WITH GOOD DATA FOR TYPEOUT | 
011170 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
011174 000240 66$: NOP 
011176 012760 000040 000010 MOV #CLR,RMCS2(RO) :CLEAR DRIVE 
;RELEASE THE DRIVE FROM PORT B 
011204 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
011212 013737 001226 001240 MOV PORTB,PTNBR MOVE P PORT ADDRESS TO LOCATION FOR TYPEOUT 
011220 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B | 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL i 
011226 005037 001254 CLR RELERR ZCLEAR THE "RELEASE ERROR * INDICATOR 
011232 012737 000012 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
011240 060037 001122 ADD RO, SBDADR [ADD THE 1/0 BASE ADDRESS 
011244 012737 011609 001124 MOV WMOL ;PGM!DPR!DRY.SGDDAT COMPARISON CONSTANT | 
011252 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT P | 
011260 016037 000012 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
011266 042737 024001 001170 BIC #PIP!WRL'OM,STMP2 CL ONT CARES 
011274 013737 001170 001164 MOV STMP2, $TMPO ;COPY IT INTO "STMPO' 
011302 042737 100100 001164 BIC WATA!VV,S$TMPO_; CLEAR PORT ;PEPENDENT BITS FROM THE COPY 
011310 113760 001226 000010 MOVB = PORTB RACS2(RO) 7SELECT PORT B. 
011316 016037 000012 001172 MOV S(RO) STMPS | :GET THE DRIVE STATUS REGISTER FROM PORT B. 
011324 042737 024001 001172 BIC #PIP!WRL'OM,STMP :¢ ONT CARES 
011332 013737 001172 001166 MOV $TMP3,STMP1 3COPY IT INTO 'STMP1' 
011340 042737 100100 001166 BIC WATAYVV,$STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
011346 023737 001164 001166 CMP STMPO,STMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
011354 001006 BNE 68$ T 
011356 005737 001164 TST STMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
011362 001037 BNE 70$ 7BR IF NOT 
011364 104046 EMT 46 
011366 000137 011552 JMP 72$ :BYPASS THE REST OF THE CHECKS | 
011372 013737 001170 001126 68$: MOV STMP2,SBDDAT — SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
011400 013737 001226 001240 MOV PORTB,PTNBR [SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
011406 113760 001226 000010 MOVB = PORTB. RMCS2(RO) SELECT PORT 
011414 005737 001164 TST $TMPO TSEE IF STATUS EQ 0 FROM PORT A. 
011420 001414 BEQ 69$ :BR IF ZERO 
011422 013737 001224 001240 MOV PORTA.BTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL | 
011430 013737 001172 001126 MOV $TMP3,$BDD "BAD DATA’ FOR ERROR TYPE OUT 
011436 113760 001224 000010 MOVE PORTASRMCSO(RO) ZSELECT PORT A. | 
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001166 
177777 


001174 
001250 
001224 


001126 
100000 
001174 
001250 


012070 
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mt :SEE_IF STATUS EQ ZERO FROM PORT B. 
——- TSET "RELEASE ERROR’ INDICATOR 


STMP2,$BDDAT | ;LOOK FOR BIT FAILURES WHEN RMDS READ 
PORTA, PTNBR CHANGE P 

WATA'VV,$BDDAT DON'T CHECK ATIN BIT OR VV BIT 
SGDDAT,$BDDAT ALL BITS OK ? 

71$ [BR IF OK FROM PORT A. 


7 
STMP3,SBDDAT CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
PORTB,PTNBR CHANGE PORT NUMBER 

WATA!VV,SBDDAT ;DON'T CHECK ATTN BIT OR VV BIT 


SGDDAT,$BDDAT SEE IF READ OK FROM PORT B. 

gee 3;BR IF OK 

RELERR ;DID DRIVE RETURN TO NEUTRAL ? 

+6 ‘BR IF IN NEUTRAL : 

is 760 WAIT FOR DRIVE TO TIMEOUT 
PORTB,RMCS2(RO) °;SELECT PORT B 

PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
RMDS(RO),$BDDAT °;GET CONTENTS OF RMDS 

#RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDAD sADD RH/RM BASE ADDRESS 

SGDDAT WHAT REGISTER SHOULD BE 

SBDDAT.STMPO MOVE REGISTER CON:ENTS TO ‘STMPO* 
W°CATA.$TMPO SAVE SPECIFIED BITS 

SGDDAT STAMP COMPARE THE BITS 

SBDDAT,.$TMP4 COPY "BAD DATA’ 

HATA, STMP4 [CLEAR THE MASKED BITS 

STNP4 ,SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 

CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


PORTA,RMCS2(RO) ;SELECT PORT A 

PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR :CLEAR THE 'CHECK ERROR’ INDICATOR 
RMDS(RO),$BDDAT °:GET CONTENTS OF RMDS 

#RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDADR sADD RH/RM BASE ADDRESS 

SGDDAT SWHAT REGISTER SHOULD BE 

SBDDAT,$TMPO _:MOVE REGISTER CONTENTS TO 'STMPO* 
W°CATA.STMPO SAVE SPECIFIED BITS 

SGDDAT.$TMPO COMPARE, THE BITS 

SBDDAT.$TMP4 § :COPY "BAD DATA’ 

HATA, STMP4 *CLEAR THE MASKED BITS 
STMP4,$GDDAT | :*°OR' WITH GOOD DATA FOR TYPEOUT 


CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 
2s 3GO CHECK FOR LOOP ON ERROR 


y1F RELEASE COMMAND DIDN'T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 


fF 5 
CZRNHAO NBO QUAL PORT PT1 MACRO V04.00 15-JAN=82 07:09:22 PAGE 9-20 SEQ 0057 
t PORT "B' SEIZE/RELEASE TEST 


:TO RELEASE THE DRIVE 


012036 1$: 
012036 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
012044 013737 001224 001240 MOV PORTA, PTNBR Move PORT ADDRESS TO LOCATION FOR TYPEOUT 
012052 005760 000012 TST RMDS (RO) sWAIT FOR TIMEOUT TO RELEASE DRIVE 
012056 001004 BNE 2$ 3sBR WHEN DRIVE RELEASED 
012060 005737 001260 TST WATCH sCHECK THE WATCH 
012 1364 BNE 1$ sBR IF NOT ZERO 
012066 104036 EMT 36 
362 012070 000004 2$: SCOPE ;LOOP ? 
371 
372 LE RARAR ARR RARER ER RARE RAR EAR RE EERE RERRRRRARERAERER EERE RE 
s*TEST 6 PORT ‘A* NEUTRAL/RELEASE TEST 
ze 
'*TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
3* 
:* A. ISSUE A RELEASE COMMAND THROUGH PORT ‘A‘ WITH THE DRIVE IN 
3* NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
** 
+E RRRERRERRRR RRR RR REE E ARERR EAR AR ERR ERE 
012072 TST6: 
012072 005737 001300 TST KYBCTL PERFORMING ONLY SINGLE TEST ? 
012076 001406 BEQ 2$ : F NOT 
012100 100002 BPL 1$ 7BR IF JUST ENTERED TEST 
012102 000137 003062 JMP EXEC sRETURN & GET NEXT TEST NUMBER 
012106 012737 177777 001300 1$: MOV #-1,KYBCTL 3SET SINGLE TEST INDICATOR 
012114 012737 012130 001106 2$: MOV MTEST6,$LPADR ;SETUP SCOPE LOOP ADDRESS 
Bisse 012737 012130 001110 resté MOV MTEST6,$LPERR ;SETUP ERROR LOOP ADDRESS 
012130 112737 000006 001102 MOVB 46, STSTNM sMOVE #6 TO TEST NUMBER 
012136 012706 001100 MOV #STACK,SP sLOAD THE STACK POINTER 
373 012142 012737 000012 001176 MOV #10. .S$TIMES 3:D0 10. ITERATIONS 
384 012150 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
012156 013737 001224 001240 MOV PORTA,PTNBR sMOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012164 013737 001224 001242 MOV PORTA, SEIZPT zsADDR OF PORT WHICH WILL ISSUE RELEASE 
zs ISSUE A RELEASE COMMAND 
012172 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE A RELEASE COMMAND 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
012200 005037 001254 CLR RELERR sCLEAR THE ‘RELEASE ERROR ° INDICATOR 
0122046 012737 000012 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
012212 060037 001122 ADD RO,SBDADR gADD THE 1/0 BASE ADDRESS 
012216 Oe eee 011700 001124 MOV #MOL'PGM'DPR!DRY!VV,SGDDAT ;COMPARISON CONSTANT 
012224 113760 001224 000010 MOVB PORTA rae sSELECT PORT A. 
012232 016037 4 001170 MOV RMDS(R : *GET THE DRIVE STATUS REGISTER FROM PORT A. 
012240 Boel a? 4001 001170 BIC #PIP'WRL'OM,STMP2 ;CLEAR DONT CARES 
012246 013737 001170 001164 MOV STMP2,STMPO sCOPY IT INTO ‘STMPO' 
012254 ef 1 U4 100100 001164 BIC WATA'VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
012262 113760 oo 1s58 00010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
012270 016037 00001 Oot es MOV RMDS(RO) , STMP *GET THE DRIVE STATUS REGISTER FROM PORT B. 
012276 042737 024001 00117 BIC #PIP!WRL'OM,STMPS 7 CLEAR CARES 
012304 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO ‘STMP1° 


—mo 


CZRNHAO RM8Q DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-24 
T6 PORT °A* NEUTRAL/RELEASE TEST 


012312 042737 100100 001166 BIt WATA'V“,$TMP1 ; CLEAR PORT DEPENDENT BITS FROM THE COPY 
012320 023737 001164 001166 CMP STMPO,STMP1 ‘IS THE ygratus REGISTER THE SAME FROM BOTH PORTS ? 
012326 001006 BNE 64$ ‘BR IF NO 
O13 005737 001164 TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
012334 0u1045 BNE 66$ *BR IF NOT 
012336 104046 EMT 46 
012340 000137 012540 JMP 68$ sBYPASS THE REST OF THE CHECK 
012344 013737 001170 001126 64$: MOV $TMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR sERROR MESSAGE 
012352 013737 001226 001240 MOV PORTB,PTNBR [SEIZING PORT IF TEST SHOws DRIVE NOT IN NEUTRAL 
012360 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
012366 005737 001164 TST $TMPO [SEE IF STATUS EQ 0 FROM PORT A. 
012372 001414 BEQ 65$ ‘BR IF ZER 
012374 013737 001224 001240 MOV PORTA,PTNBR [SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
012402 013737 001172 001126 MOV STMP3.S$BDDAT  :"BAD DATA’ FOR ERROR TYPE OUT 
012410 113760 001224 000010 MOVB PORTA.RMCS2(RO) :SELECT PORT 
012416 005737 001166 TST STMP1 [SEE IF CrATUS’ EQ ZERO FROM PORT B. 
012422 001012 BNE 7BR IF 
012424 012737 177777 001254 65$: MOV #~-1,RELERR [SET "RELEASE ERROR’ INDICATOR 
012432 012760 000011 000000 MOV ot "RMCS1(RO) :CLEAR THE 
012440 012760 013 000000 MOV #13.RMCS1(RO) :RELEASE THE DRIVE 
012446 104030 EMT 30 
012450 013737 001170 001126 66$: MOV STMP2,S$BDDAT LOOK FOR BIT FAILURES WHEN RMDS READ 
012456 013737 001224 001240 MOV PORTA.PTNBR HANGE POR 
012464 042727 100000 001126 BIC HATA, SBDDAT SDON'T CHECK THE STTN BIT 
012472 023737 001124 001126 CMP S$GDDAT,$BDDAT ALL BITS OK ? 
012500 001401 BEQ 67$ ‘BR IF OK FROM PORT A. 
012502 104007 EMT ? 
012504 013737 001172 001126 67$: MOV STMP3,SBDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
012512 013737 001226 001240 MOV PORTB,PTNBR :CHANGE PORT NUMBER 
012520 042737 100000 001126 BIC HATA, SBDDAT [DON'T CHECK THE ATTN BIT 
012526 023737 001124 001126 CMP SGDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
012534 001401 BEQ 68$ ‘BR IF OK 
012536 104007 EMT 
012540 000240 68$: NOP 
012542 000004 SCOPE ;LOOP ? 
i: 
395 SE RRRRA AAA A EAE TA AERA AAR AAAARERERARARREREAARRERARERRRR ERE 
S*TEST 7 PORT 'B' NEUTRAL/RELEASE TEST 
36 
;*TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
fe A. ISSUE A RELEASE COMMAND THROUGH PORT 'B' WITH THE DRIVE IN 
3* NEUTRAL: VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
** 
+: RARER REREEEEERERERERARRAEEAEAERAARAARERRARAAERREREEREE 
012544 S17: 
012544 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
012550 001406 BEQ 2$ T 
012552 100002 BPL 1$ :BR IF JUST ENTERED TEST 
012554 00013 003062 JMP SRETURN & GET NEXT TEST NUMBER 
012560 012737 177777 001300 1$: MOV KYBCT RET UeHNELE test. INDICATOR 
012566 012737 01260 001106 2$: MOV aTESTT. SLPADR SSETUP SCOPE LOOP ADDRESS 
012574 012737 012602 00111 al MOV #TEST7.$LPERR | :SETUP ERROR LOOP ADDRESS 
p15e05 112737 000007 001102 MOVB «#7, STSTNM sMOVE #7 TO TEST NUMBER 
012610 012706 001100 MOV #STACK, SP SLOAD THE STACK POINTER 


SEQ 0058 


' 
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H 5 
” tai RMB8O DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-22 SEQ 0059 
T PORT *B' NEUTRAL/RELEASE TEST 
012614 012737 900012 001176 MOV #10. ,STIMES 33D0 10. ITERATIONS 
397 012622 113760 001226 aise Hh M9OVB PORTB,RMCS2(RO) ;SELECT PORT B 
012630 013737 001 se 001240 MOV TB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
0126 013737 001226 001242 MOV PORTB,SEIZPT zADDR OF PORT WHICH WILL ISSUE RELEASE 


z ISSUE A_RELEASE oss 
012644 012760 000013 000000 MOV Wi3Z,RMCS1(RO) ;ISSUE A RELEASE COMMAND 
zVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


012652 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR 
012656 012737 000012 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEQUT 
012664 060037 001122 ADD RO, $BDADR ZADD THE 1/0 BASE ADDRESS 

012670 012757 011700 001124 MOV #MOL'PGM'DPR!DRY!VV,$GDDAT ;COMPARISON CONSTANT 

012676 113760 001224 000010 MOVB = PORTA, RMCS2(RO) :SELECT PORT A. 

012704 016037 000012 001170 MOV RMDS (RO ;STMP2  2GET THE DRIVE STATUS REGISTER FROM PORT A. 
012712 042737 024001 001170 BIC #PIP'WRL'OM,STMP2 ZCLEAR DONT CARES 

012720 013737 001170 001164 MOV STMP2,STMPO sCOPY IT INTO *$TMPO' 

012726 042737 100100 001164 BIC #ATA!VV,STMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
012734 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT 8. 

012742 016037 000012 00117 MOV RMDS (RO) ¢ T “GET THE DRIVE STATUS REGISTER FROM PORT B. 
012750 042737 024001 00117 BIC #PIP'WRL'OM,STMPS sCLEAR DONT CARES 

012756 013737 001172 001166 MOV $TMP3,STMP1 3COPY IT INTO *$TMP1 

012764 042737 100100 001166 BIC MATA! VV, STMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
012772 023737 001164 001166 CMP STMPO,$TMP1 *IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
013000 001006 BNE 64$ : T 

013002 0095737 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
013006 001045 BNE 66$ [BR IF NOT 

013010 104046 EMT 46 

013012 000137 013212 JMP 68$ sBYPASS THE REST OF THE CHECKS 

013016 013737 001170 001126 64$: MOV $TMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
013024 013737 001226 001240 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
013032 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT 8. 

013040 005737 001164 TST $TMPO [SEE IF STATUS EQ 0 FROM PORT A. 

013044 001414 BEQ 65$ ‘BR IF ZERO 

013046 013737 001224 001240 MOV PORTA,PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
013054 013737 001172 001126 MOV STMP3.SBDDAT _:*BAD DATA’ FOR ERROR TYPE OUT 

013062 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A. 

013070 005737 001166 TST STMP1 :SEE IF cTATUS EQ ZERO FROM PORT B. 

013074 001012 BNE 66$ [BR IF NOT 

013076 012737 177777 001254 65$: MOV #~1,RELERR [SET "RELEASE ERROR’ INDICATOR 

013104 012769 000011 000000 MOV #11.RMCS1(RO) CLEAR THE DRIV 

013112 912760 000013 000000 MOV #15,RMCS1 (RO) SRELEASE THE DRIVE 

013122 013737 001170 001126 66$: MOV STMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
013130 013737 001224 001240 MOV PORTA, PTNBR :CHANGE POR R 

013136 042737 100000 001126 BIC #ATA, $BDDAT [DON'T CHECK THE ATTN BIT 

013144 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 

013152 001401 BEQ 7$ *BR IF OK FROM PORT A. 

013154 104007 EMT 

013156 013737 001172 001126 67$: MOV $TMP3,$BDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
013164 013737 001226 001240 MOV PORTB.PTNBR *CHANGE PORT NUMBER 

013172 042737 100000 001126 BIC #ATA, $BDDAT [DON'T CHECK THE ATTN BIT 

013200 023737 001124 001126 CMP SGDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 

013206 001401 ata 8s ‘BR IF OK 

013210 104007 EMT 





£ RNHAO RM80 DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE g-2h ° — SEQ 0060 
PORT °B* NEUTRAL/RELEASE TEST 





013212 000240 68$: 
013214 000004 SCOPE :LOOP ? 
a 
418 FRRRAAERR AAR AAAREAAREAAERAR AAA AEE AAREAERERARERARERAEEREERE ERAN ES 
;STEST 10 PORT ‘A’ RELEASE INTERFERENCE TEST 
‘VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
:* IS SEIZED BY THE OTHER PORT. 
z* A. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING O'S INTO RMDS. 
i B. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. 
i C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘B’. 
te D RELEASE THE DRIVE THROUGH PORT "B'. VERIFY THAT THE DRIVE SWITCHED 
3* "A ai 
3* 
te E. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE RETURNED 
:* TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
+: RARER REREEEEERERAAEARAEAERAERAERERREERAEAERERRERRERREE 
013216 TST10: 
013216 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
013222 001406 BEQ 2$ [BR IF NO 
013224 100002 BPL 1$ “BR IF JUST ENTERED TEST 
013226 000137 003062 JMP EXEC SRETURN & GET NEXT TEST NUMBE 
013232 012737 177777 001300 1$: MUV #~1, KYBCTL [SET SINGLE TEST INDICATOR 
013240 012737 013254 001106 2$: MOV ETEST10,$LPADR SETUP SCOPE LOOP ADDRESS 
013246 012737 013254 001110 asia MOV ATESTIO.S$LPERR SETUP ERROR LOOP ADDRESS 
013254 112737 000010 001162 “move  #10,$TSTNM :MOVE #10 TO TEST NUMBER 
013262 012706 001100 MOV #STACK,SP *LOAD THE STACK POINTER 
om 013266 012737 000012 001176 MOV #10. ,STIMES +:D0 10. ITERATIONS 
443 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
013274 113760 001224 000010 MOVB _—— PORTA, RMCS2(RO) ;SELECT PORT #A 
013302 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE 
013306 012760 000011 000000 MOV #11,RMCS1(RO) ZASSUE D IVE CLEAR 
013314 012760 000013 000000 MOV #13 =RACS1 (RO) SPeASE NE DRIVE 
013322 113760 001226 000010 MOVB Ports CS$2(RO) REL LECT PORT #8 
013330 005060 00001 CLR PRIS TROD SEIZE THE DRIVE THROUGH PORT ‘B' 
013334 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
013342 012760 000013 0000U0 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
sSEIZE THE DRIVE THROUGH PORT B 
013350 113760 001226 000010 MOVB = PORTB,RMCS2(RO) ;SELECT PORT B 
013356 013737 001226 001242 MOV PORTB, SEIZPT : STORE SEIZING PORT’S ADDRESS 
013364 005060 000012 CLR RMDS (RO) WRITE RMDS 
013370 113760 0012 4 000010 MOVB _—sC— PORTA, RACS2(RO) *SELECT PORT 
013376 013737 001224 001240 MOV PORTA.PTNBR move |p PORT ADDRESS TO LOCATION FOR TYPEOQUT 
013404 013737 001224 001244 MOV PORTA, OPPRT : OPPOSITE’ PORT ADDR 
013412 016037 000012 001126 MOV RMDS(RO).$BDDAT :SEE IF DRIVE SEIZED BY PORT B 
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UAL PORT PT1 MACRO V04.00 15-JAN=82 07:09:22 PAGE 9-24 SEQ 0061 
A’ RELEASE INTERFERENCE TEST 





ayaa 


0 010037 00112 MOV RO, $BDADR :RH/RM BASE ADDRESS 
4 0627 7 000012 001122 ADD #RMDS , SBDADR ; GENERATE BAD REGISTER ADDRESS 
2 005037 001124 CLR $GDDA sREGISTER SHOULD BE ZERO 
023737 001124 001126 CMP S$GDDAT,SBDDAT 31S THE REGISTER ZERO 
44 001403 BEQ 64$ ‘BR IF IT IS 
46 104004 EMT 4 
20 000137 014460 on JMP 1$ :BYPASS REST OF THE SUBTEST | 
54 113760 001226 000010 MOVB PORTB,RMCS2(RO) SELECT PORT 6 
62 013737 0012260 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT | 
70 016037 000012 001126 MOV RMDS (RO) S$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS | 
76 042737 020001 001126 BIC #OM PIP, $BDD :CLEAR DONT CARE BITS | 
04 012737 011700 001124 MOV L'PGM'DPR'!DRY!VV.$GDDAT ;EXPECTED STATUS | 
12 013737 001124 001166 MOV SCDDAT. $TMP1_ ;USE GOOD DATA AS A MASK | 
20 005137 001166 COM $TMP1 :COMPLEMENT THE EXPECTED STATUS 
24 013737 001126 001164 MOV SBDDAT,.STMPO iSAVE THE ACTUAL STATUS | 
32 043737 001166 001164 BIC STMP1,$TMPO CLEAR UNWANTED BITS 
40 023737 001124 001164 CMP SGDDAT ,$TMPO TARE THE EXPECTED STATUS BITS SET ? 
46 001401 BEQ 65$ ‘BR IF THEY ARE | 
50 104005 EMT 5 
52 000240 65$: NOP 
sTRY TO FXECUTE A RELEASE COMMAND THROUGH PORT A 
54 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT | 
62 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
70 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE A RELEASE COMMAND THROUGH PORT A 
:VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT B 
76 005037 001250 CLR CKERR ZCLEAR THE "CHECK ERROR’ INDICATOR 
2 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF 
10 012737 000012 001122 MOV #RMDS . SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
16 060037 001122 ADD RO,$B :ADD RH/RM BASE ADDRESS 
22 005037 001124 CLR SchDAT WHAT REGISTER SHOULD BE 
26 023737 001124 001126 CMP S$GDDAT,$BDDAT :IS THE REGISTER OK ? 
34 001403 BEQ 668 :BR IF OK 
36 104010 EMT 10 
0 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
4 016037 000000 001126 66$: # MOV RMCS1(RO), SBDDAT :GET THE CONTENTS OF RMCS1 
52 012737 000000 001122 MOV #RMCS1 <$BDAD :FORM ADDRESS OF REGISTER 
060037 001122 ADD RO, $BDADR sADDRESS BASE 
032737 020000 001126 BIT #MCPE,SBDDAT 31S ‘MCPE' SET ? 
72 001404 BEQ 67$ :BR IF NOT 
74 104011 EMT 11 
76 012760 040000 000000 MOV ATRE,RMCS1(RO) ;CLEAR ‘MCPE' 
04 000240 67$: NOP 
06 005737 001250 TST CKERR :WAS RMDS NON ZERO ? 
12 001402 BEQ +6 SCONTENTS OF RMDS SEEN BY PORT A 
14 000137 014460 JMP is ‘DRIVE IN NEUTRAL, BYPASS REST OF TEST 
sRELEASE THE DRIVE FROM PORT B | 
0 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
6 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
| 


oeicatal 
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CZRNHAO RM8O DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-25 
T10 PORT 'A’ RELEASE INTERFERENCE TEST 


:VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 


013742 005037 001254 CLR RELERR ;CLEAR "RELEASE ERROR' INDICATOR 
013746 012737 111700 001124 MOV #ATA!MOL!PGM!DPRIDRY!VV,SGDDAT ; COMPAR ISON ON CONSTANT 
013754 017737 900012 001122 MOV #RMDS »SBDA ADR sREGISTER ADDRESS INCREMENT 
013762 060037 00112 ADD RO, $B ;REGISTER pBASE ADDRESS FOR TYPEOUT 
013766 113760 001224 000010 MOVB _—sC~ PORTA, AMCS2(RO) “SELECT PORT A 
013774 013737 001224 001240 MOV PORTA, PTNBR Davi PORT ADDRESS TO LOCATION FOR TYPEOUT 
014002 016037 000012 001164 MOV RMDS(RO),$TMPO ;READ STATU Us {REGISTER FROM PORT A 
014010 113760 001226 000010 MOVB _—sCwPORTB, RMCS2 (RO) “SELECT PORT B 
014016 013737 001226 001240 MOV PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
014024 016037 000012 0601126 MOV RMDS (RO) , SBDDAT c ORIVE STATUS FROM PORT B 
014032 001404 BEQ 68$ :BR IF STATUS FROM PORT B ZERO 
014034 005737 001164 TST $STMPO :1S STATUS FROM PORT A ZERO ? 
014040 001401 BEQ 68$ 7BR IF ZERO 
014042 104031 EMT 31 
014044 013737 001164 001126 68$: MOV STMPO,$BDDAT | ;CHECK STATUS FROM PORT A 
014052 013737 001224 001240 MOV PORTA,PTNBR + CHAN GE PORT ADDRESS FOR TYPEOUT 
014060 023737 001124 001126 CMP SGDDAT,$BDDAT :COMPARE WITH CONSTANT 
014066 001401 BEQ 69$ <BR IF OK 
014070 104027 EMT 27 
014072 000240 69$: NOP 

ZRELEASE THE DRIVE FROM PORT A 
014074 113760 001224 000010 MOVB PORTA,RMCS2(RO)_ :SELECT PORT A 
014102 013737 001224 001240 MOV PORTA,PTNBR MOVE PORT ADDRESS TO ong tke. FOR TYPEOUT 
014110 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT A 

:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
014116 005037 001254 CLR RELERR ZCLEAR THE "RELEASE ERROR ' INDICATOR 
014122 012737 000012 001122 MOV #RMDS , SBDADR FORM, THE ADDRESS OF RMDS FOR TYPEOUT 
014130 060037 001122 ADD RO, $BDADR jADD I HE 1/0 BASE ADDRESS 
014134 012737 011700 001124 MOV #MOL!PGM'!DPR!DRY!V SGDDAT : COMPARISON CONSTANT 
014142 113760 001224 000010 MOVB —- PORTA, RMCS2(RO) ZSeCECT 
014150 016037 000012 001170 MOV RO),$TMP2 :GET THE PORIVE “STATUS REGISTER FROM PORT A. 
014156 042737 024001 001170 BIC BOTS URL ION, STMP sCLEAR DONT CARES 
014164 013737 001170 001164 MOV STMP2, STAPO sCOPY IT’ INTO *STMPO® 
014172 042737 100100 001164 B WATA'VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
014200 113760 001226 000010 MOVB _—s—wPORTB, VRS? (RO) *SELECT PORT B. 
014206 016037 000012 001172 MOV s(R ) «ST “GET THE DRIVE STATUS REGISTER FROM PORT B. 
014214 042737 024001 001172 BIC #PIP!WRL'OM,$TMP3 CLEAR DONT CARES 
014222 013737 001172 001166 MOV $TMP3,STMP1 3COPY IT INTO *STMP1' 
014230 042737 100100 001166 BIC WATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
014236 023737 001164 001166 CMP $TMPO,$TMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
014244 001006 BNE 70$ N 
014246 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
014252 001045 BNE 72$ [BR IF NOT 
014254 104046 EMT 46 
014256 000137 014456 JMP 74$ BYPASS THE REST OF THE CHECKS 
014262 013737 001170 001126 70$: MOV STMP2,$BDDAT SET UP _Possist LE BAD DATA FOR ERROR MESSAGE 
014270 013737 001226 001240 MOV PORTB.PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
014276 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PD T 
014304 005737 001164 TST STMPO [SEE IF STATUS EQ 0 FRG’. PORT A. 
014310 001414 BEQ 71$ *BR IF ZERO 
014312 013737 001224 001240 MOV PORTA, PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
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* RELEASE INTERFERENCE TEST 


STMP3 ,SBDDAT 
PORTA, RMCS2 (RO) 
STMP1 


#~1,RELERR 
#1 >RMCS1 (RO) 
g15- >RMCS1(RO) 


S$TMP2 ,SBDDAT 
9g PTNBR 


DDAT 
SGDDAT. SBDDAT 
gos 
$TMP3,SBDDAT 
PORTB,PTNBR 
#ATA, SBDDAT 
SGDDAT , SBDDAT 
74$ 


RELEASE THE DRIVE THROUGH PORT 'B’. 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS S 


; Sanenennaanetsennenateresetageneaancanneeaaeseseneneeteneantess 
eee ONLY SINGLE TEST ? 


:BR IF JUST ENTERED TEST 
RN & GE XT TEST NUMBER 


SETUP SCOPE LOOP ADDRESS 
[SETUP ERROR LOOP ADDRESS 


MOVE #11 TO TEST NUMBER 
3LOAD THE STACK POINTER 
33D0 10. ITERATION 


KYBCTL 
2$ 


#-1,KYBCTL 
#TEStii $LPADR 
#TEST11,$LPERR 


#11,$TSTNM 
#STACK, SP 
#10. ,STIMES 





:"BAD DATA’ FOR ERROR TYPE OUT 
SSELECT PORT A. 
SEE IF STATUS EQ ZERO FROM PORT B. 
7BR_IF NOT 
TSET "RELEASE ERROR’ INDICATOR 
2CL H IVE 
sRELEASE THE DRIVE 
;LOOK FOR BIT es WHEN RMDS READ 
s CHANGE PO 
:DON' T CHECK THE ATIN BIT 
L apts 
F OK PROM PORT A. 
: CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
GE PORT NUMBER 


0 
{DON T CHECK THE ATTN BIT 
7SEE_IF READ OK FROM PORT 6. 
BR IF OK 


RRRRRRRRRRRERERERERRRERERERERERREREREERERERAERRERERRREREEER RE ES 


PORT "B* RELEASE INTERFERENCE TEST 


A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 


SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING 0°S INTO RMDS. 
ISSUE A RELEASE COMMAND THROUGH PORT ‘B’. 
VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘A’. 


veut THe DRIVE THROUGH PORT ‘A‘. VERIFY THAT THE DRIVE SWITCHED 


VERIFY =. THE DRIVE RETURNED 


SEQ 0063 


ao 
— nmi 


| Eee 
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111 "RELEASE INTERFERENCE TEST 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
014540 113760 001224 000010 MOVB - PORTA,RMCS2(RO) ;SELECT PORT #A 
014546 005060 000012 CLR —-—-RMDS(RO) 3SEIZE THE DRIVE 
014552 012760 000011 000000 NOV —-#TLRMNCST(RO? ISSUE DRIVE CLEAR 
014560 012760 000013 000000 MOV #13, RMCS1( RELEASE THE DRIVE 
014566 113760 001226 000010 MOVB —PORTRCRMCSS(RO) ZSELECT PORT. AB 
014574 005060 000012 CLR RMDS(RO) SEIZE THE DRIVE THROUGH PORT ‘B" 
014600 012760 000011 000000 MOV «#11, RMCS1(RO) . :ISSUE DRIVE CLEAR 
014606 012760 000013 000000 MOV -#13,RMCS1(RO)  :RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT A 
014614 113760 001224 000010 MOVB - PORTA,RMCS2(RO)_;SELECT PORT 
014622 013737 001204 001242 NOV. PORTASSEIZPT. sSTORE SEIZING PORTS ADDRESS 
014630 005060 000012 CLR ——-RMDS(RO) ;WRITE RMDS 
014634 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ° SELECT PORT 8 
014642 013737 001226 001240 MOV PORTB.PTNBR MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
014650 013737 001226 001244 MOV —- PORTB,OPPRT OPPOSITE’ PORT ADDRESS 
014656 016037 000012 001126 MOV RDS (ROD SEDDAT :SEE IF. DRIVE SEIZED BY PORT A 
014664 010037 001122 MOV — RO, SBDADR :RH/RM BASE A 
014670 062737 000012 001122 ADD #RMDS,SBDADR GENERATE BAD REGISTER ADDRESS 
014676 005037 001124 CLR —- $GDDAT ZREGISTER SHOULD BE ZERO 
014702 023737 001124 001126 CMP - $GDDAT,SBDDAT 1S THE REGISTER ZERO 
014710 001403 BEQ 64S iBR If IT IS 
014712 104004 EMT = 
014714 000137 015724 at te ;BYPASS REST OF THE SUBTEST 
014720 113760 001224 000010 MOVE —PORTA.RMCS2(RO)  :SELECT PORT 
014726 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
014734 016037 000012 001126 MOV -RMDS(RO)SBDDAT SEE IF SEIZING PORT SEES CORRECT STATUS 
014742 042737 020001 001126 BIC #OM!PIP, $BDDA LEAR DONT CARE BITS 
014750 012737 011700 001124 MOV #MOL!PGH'DPRIDRY!VV,SGDDAT  ; EXPECTED STATUS 
014756 013737 001124 001166 MOV  $GDDAT,STMP1 ;USE GOOD DATA AS A MASK 
014764 005137 001166 COM —-$TMP1 COMPLEMENT THE EXPECTED STATUS 
014770 013737 001126 001164 MOV - SBDDAT, STMPO = SAVE_THE ACTUAL STATUS 
014776 043737 001166 001164 BIC  $TMP1,$TMPO «CLEAR UNWANTED BITS 
015004 023737 001124 001164 CHP SGDDAF,STHPO ARE THE EXPECTED STATUS BITS SET ? 
015012 001401 BEQ 65S ;BR IF THEY ARE 
015014 104005 EMT 5 
015016 000240 65$: NOP 
;TRY TO EXECUTE A RELEASE COMMAND THROUGH PORT 8 
015020 113760 001226 000010 MOVB © PORTB,RMCS2(RO) ;SELECT PORT B 
015026 013737 001226 001240 MOY PORTE PTNBR {MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
015034 012760 g0e01s op0000 Moy —«-#18,PMCS1(AO)” : ISSUE A RELEASE COMMAND THROUGH PORT B 
;VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT A 
015042 005037 001250 CLR CKERR ZCLEAR THE "CHECK ERROR’ INDICATOR 
015046 016037 000012 001126 MOV -- RMDS(RO),SBDDAT °;GET CONTENTS OF _RMDS 
015054 012737 000012 001122 MOV ARMDS .SBDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
015062 060037 001122 ADD —RO, SBDADR ;ADD_RH/RM BASE ADDRESS 
015066 005037 001124 CLR - $GDDAT UHAT REGISTER SHOULD BE 
015072 023737 001124 001126 CHP SGDDAT.SBDDAT 1S THE REGISTER 
015100 001403 BEQ «= «6S :BR IF OK 


“ao 
—sm 


eslithcamesieal 
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PORT 'B’ RELEASE INTERFERENCE TEST 
015102 104010 EMT =: | 
015104 005137 001250 COM CKERR ;SET_THE REGISTER COMPARE ERROR INDICATOR 
015110 016037 000000 001126 66$: MOV —-RMCS1(RO),S$BDDAT’ ;GET THE CONTENTS OF RMCS1 
015116 012737 000000 001122 MOV - #RMCS1,SBDADR  ;FORM ADDRESS OF REGISTER 
015124 060037 001122 ADD —-RO, SBDADR SADDRESS BASE 
015130 032737 020000 001126 BIT  #MCPE,SBDDAT  ;1S 'MCPE’ SET ? 
015136 001404 BEQ «6 67$ ;BR IF NOT 
015140 104011 EMT 11 
915142 012760 040000 000000 MOV - #TRE,RMCS1(RO) ;CLEAR 'MCPE" 
015150 000240 678: NOP 
015152 005737 001250 TST CKERR ;WAS _RMDS NON ZERO ? 
015156 001402 BEQ +6 ZCONTENTS OF RMDS SEEN BY PORT 8 
015160 000137 015724 imp iS ;DRIVE :N NEUTRAL, BYPASS REST OF TEST 
;RELEASE THE DRIVE FROM PORT A 
015164 113760 001224 000010 MOVB - PORTA,RMCS2(RO) SELECT PORT 
015172 013737 001224 001240 MOV” PORTASPTNR :MOVE PORT. ADDRESS. TO LOCATION FOR TYPEOUT 
015200 012760 000013 000000 MOV #13,RMCS1(RO) ;1SSUE RELEASE THROUGH PORT A 
:VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 
015206 005037 001254 CLR —RELERR ZCLEAR "RELEASE ERROR" INDICATOR 
015212 012737 111700 001124 MOV -#ATA!MOL!PGM!DPRIDRY!VV.SGDDAT _ ; COMPARISON CONSTANT 
015220 012737 000012 001122 MOV - ARMDS,SSDADR ;REGISTER ADDRESS INCREMENT 
015226 060037 001122 ADD —-RO, $BDADR ;REGISTER BASE ADDRESS FOR TYPEOUT 
015232 113760 001226 000010 MOVE © PORTB,RMc:2(RO) " :SELECT PORT 8 
015240 013737 001226 001240 MOV PORT -PINBR, 2MOVE PORT ADDRESS TO LOCATION, FOR TYPEOUT 
015246 16037 000012 001164 MOV. _RMDSCRO) sSTMPO. SREAD STATUS REGISTER FROM PORT 6 
015254 113760 001224 000010 MOVE PORTALRMCS2(RO) “7 SELECT PORT A 
015262 013737 001224 001240 MOV PORTA, PTNBR ovis PORT ADDRESS, TO LOCATION FOR TYPEQUT 
015270 016037 000012 001126 MOV —-RMDS(RO),SBDDAT DRIVE STATUS FROM PORT A 
015276 001404 BEQ «68S IF STATUS FROM PORT A ZERO 
015300 005737 001164 TST —- $TMPO :1S STATUS FROM PORT B ZERO ? 
015304 001401 BEQ 68S 3BR IF ZERO 
015306 104031 EMT = 31 
015310 013737 001164 001126 68$: MOV —§ $TMPO,SBDDAT —; CHECK STATUS FROM PORT B 
015316 013737 001226 001240 MOV  PORTB-PINBR CHANGE PORT ADDRESS FOR TYPEOUT 
015324 023737 001124 001126 CMP  $GDDAT,SBDDAT COMPARE WITH CONSTAN 
015332 001401 BEQ «69S :BR IF OK 
015334 104027 EMT = 27 
015336 000240 698: NOP 
;RELEASE THE DRIVE FROM PORT 8 
015340 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B 
015346 013737 001226 001240 MOV PORTB,PTNBR MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
015354 012760 000013 000000 MOV  -#13,RMCS1(RO)° ; ISSUE RELEASE THROUGH PORT B 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
015362 005037 001254 CLR ——-RELERR ;CLEAR THE "RELEASE ERROR ' INDICATOR 
015366 012737 000012 001122 MOV #RMDS,SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
015374 060037 00112 ADD —-RO, SBDADR SADD THE 1/0 BASE ADDRESS 
015400 912737 011700 go1124 MOV, MOL !PGH!DPR:DRY!VVSGDDAT__: COMPARISON CONSTANT 
015406 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT 
075414 016037 009012 001170 MOV” —-RADSCRODSTMPS. GET THE DRIVE STATUS REGISTER FROM PORT A. | 
| 
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“uw 


BIC #PIP!WRL!OM,STMP2 CLEAR DONT CARES 
MOV STMP2,$TMPO COPY Ry “INTO '$TMP 

BIC WATA'VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOVB  PORTB RACS2(RO) :SELECT 


PORT 8. 
V S(RO), ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
BIC = PIP! Wet 3 CLEAR DONT CARES 
V  - STMP3..STMP :COPY IT HiNTO. 
BIC ATA: VV. STMPT CLEAR PORT DEPENDENT BITS FROM THE COP 
cme STMPO,STHPI 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
TST —- STMPO {REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 728 ;BR IF NOT 
JMP 74S :BYPASS THE REST OF THE CHECKS 


70$: MOV $TMP2,SBDDAT 7SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 


MOV PORTB,PTNBR 3SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
TST $TMPO 3SEE IF _ STATUS EQ 0 FROM PORT A. 
BEQ 71$ 3BR IF ZERO 
MOV PORTA, hey SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV $TMP3,$BDD : "BAD ik Re ERROR TYPE OUT 
MOVB PORTA, *RACS2 (ROD sSELECT P 
TST STMP1 sSEE IF STATUS” EQ ZERO FROM PORT B. 
BNE ces :BR_IF 
71$: MOV #-1 ,RELERR 3SET hf ERROR* INDICATOR 
MO #11 *RMCS1 (RO) CLEAR RIVE 


Vv THE D 
MOV #13,RMCS1(RO) RELEASE THE DRIVE 


72$: MOV STMP2,SBDDAT 3 LOOK iM FAILURES WHEN RMDS READ 
MOV PORTA,PTNBR 3CHANGE PORT NUMBER 


BIC HATA, S$BDDAT :DON'T CHECK (HE ATTN BIT 
CMP SGDDAT,$BDDAT ALL BITS OK 
BEQ 73s [BR IF OK OKon PORT A. 
73$: MOV STMP3,$BDDAT | ; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
MOV PORTB,PTNBR :CHANGE PORT NUMBER 
BIC HATA, $BDDAT [DON'T CHECK THE ATTN BIT 
CMP $GDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
BEC 74$ :BR IF OK 
EMT 7 
74$: NOP 
1$: SCOPE :LOOP ? 
FRAAAAAAAARREEAAAA RARER AE RERARAREAAARERARARARRRRARRRERARAE RARER 
;STEST 12 PORT ‘A' RELEASE W/ERRORS TEST 


{VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BITS ARE SET IN THE DRIVE. 


A. SEIZE THE DRIVE THROUGH PORT ‘A*® BY WRITING 0°S INTO RMDS. 
8. WRITE 1°S INTO RMER1 THROUGH PORT ‘A’. 
C. ISSUE A RELEASE COMMAND THROUGH PORT ‘A‘*. VERIFY THAT THE ‘GO" 


BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
THAT RMER1 HAS NOT BEEN CLEARED. 


ae eee 2 RR o 








CZ 
71 


R 
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SEQ 0067 
A’ RELEASE W/ERRORS TEST 
** 
i D. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ‘A’. 
ie E. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
:* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
° RRA EREREEE REE EREEERERE EE RREEREERREREEREK 
015726 ‘S112: 
015726 005737 001300 TST KYBCTL sPERFORMING ONLY SINGLE TEST ? 
015732 001406 BEQ 2$ “BR IF NOT 
015734 190006 BPL 1$ 3BR IF JUST ENTERED TEST 
015736 00013 003062 JMP “RETURN & GET NEXT TEST NUMBER 
015742 012737 1777 001300 1$: MOV #-1,K SET SINGLE TEST INDICATOR 
015750 012737 015764 001106 2$: MOV ares io. tt OADR * SETUP SCOPE LOOP ADDRESS 
015736 012737 015764 001110 oaeie MOV #TEST12.$LPERR SETUP ERROR LOOP ADDRESS 
015764 112737 000012 001102 ; MOVB #12,$TSTNM sMOVE #12 TO TEST NUMBER 
015772 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
sa 015776 012737 000012 001176 MOV #10. ,STIMES +:D0 10. ITERATIONS 
523 
sCLEAR ATTENTION BITS FOR BOTH PORTS 
016 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
016012 005060 000012 CLR RMDS (RO) ‘SEIZE THE DRIVE 
016016 012760 000011 000000 MOV #11 oad bh s ISSUE DRIVE CLEAR 
016024 012760 000013 000000 MOV #13,RMCS1( SRELEASE THE DRIVE 
016032 113760 001226 000010 MOVB PORTB, Sa ae :SEL LECT PORT 4B 
016040 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE THROUGH PORT ‘B’ 
016044 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
616052 012760 000013 000000 MOV #13.RMCS1(RO) :RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT A 
016060 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
016066 013737 001224 001242 MOV PORTA, SEIZPT s STORE SEIZING PORT® S ADDRESS 
016074 005060 000012 CLR RMDS(R WRIT 
016100 013737 001226 001244 MOV PORTB,OPPRT OPPOSITE’ PORT ADDRESS 
FORCE AN ERROR 
016106 012760 177777 000014 MOV #-1,RMER1(RO)  ;SET ERROR BITS | 
016114 012760 000013 000000 MOV #13,RMCS1(RO) ZISSUE A RELEASE COMMAND 
016122 005037 00125 CLR CKERR SCLEAR THE "CHECK ERROR’ INDICATOR 
016126 016037 000000 001126 MOV RMCS1(RO), SBDDAT sGET CONTENTS OF C 
016134 012737 000000 001122 MOV #RMCS1,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
016142 060037 00112 ADD RO $BDADR 3A RM BASE ADDRESS 
016146 012737 004012 001124 MOV #4012, $GDDAT iWhar RECISTER SHOULD BE 
016154 013737 001126 001164 MOV DDAT, $TMPO VE REGISTER CONTENTS TO *STMPO' 
016162 042737 173765 001164 BIC #c4012 STMPO fave SPECIFIED BITS 
016170 023737 001124 001164 CMP SGDDAT, $TMP SCOMPARE THE BITS 
016176 001414 BEQ TBR IF OK 
016200 013737 001126 001174 MOV SBDDAT SMPs ‘COPY "BAD DATA’ 
016206 042737 004012 001174 BIC #4012,$1M *CLEAR THE MASKED BITS 
tre} Fh LA 001174 001124 Pat STMPA. SEDDAT TOR WITH GOOD DATA FOR TYPEOUT 
016224 §oe9g3 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
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CZRNHAO RM8O 
Tie PORT ‘A’ RELEASE W/ERRORS TEST 
0162 goes 9 668: NOP 
gies 2 005737 001250 TST CKERR DID > A ald RESET ? 
016 001 BNE +6 
plese? 1 O16308 JMP i$ 3'GO ‘git "RESET 
016244 012760 0040 000010 MOV WCLR,RMCS2(RO) ;INIT_THE ong 
b1636 11 79 Oo tsse 000010 MOVB PORTA,RMCS2(RO) pSELeee PORT 
016 0137 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO fe ell FOR TYPEOUT 
016266 012760 000013 000000 MOV #13,RMCS1(RO) ;RELEASE THE DRIVE THROUGH PORT A 
016274 0001 017044 JMP 2s ZBYPASS THE REST OF THE TEST 
;VERIFY THAT DRIVE IS STILL SEIZED BY PORT A 
016300 1$: 
016300 113760 Oo1gs6 000010 MOVB PORTB, parse (Re ;SELECT PORT B 
016306 0137 001226 001240 MOV POR LS PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
016314 005037 001250 CLR CKERR CLEAR THE « HECK ERROR® INDICATOR 
016320 016037 000012 001126 MOV RMDS(RO), SBDDAT ;GET CONTENTS OF RMDS 
016326 012737 goes 001122 MOV #RMDS,SBDADR ; FORM g by og tes OF ERROR MESSAGE 
016334 060037 00112 ADD RO. SBDADR sADD R H/RM BASE ADDRESS 
016340 005037 BE CLR $GD WHAT REGISTER SHOULD BE 
016344 023737 C01124 001126 CMP SCDDAT, SBDDAT ate THE REGISTER OK ? 
016352 001403 BEQ 8$ BR IF OK 
016354 104024 EMT 4 
016378 005137 001250 COM CKERR 7SET THE REGISTER COMPARE ERROR INDICATOR 
016362 00240 68$: NOP 
016364 113760 001224 000010 MOVE PORTA,RMCS2(RO) ;SELECT PORT 
016372 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO toa fa al FOR TYPEOUT 
016400 0050357 001250 CLR CKERR 3CLEAR THE ‘CHECK ERROR’ INDICATOR 
016404 016037 000014 001126 MOV RMER1(RO),S$BDDAT ;GET CONTENTS OF RMER 
016412 012737 000014 001122 MOV eg AE SBOADR ; FORM 4 GISTER ADDRESS OF ERROR MESSAGE 
016420 060037 O01 tes ADD 0,$8 ;ADD_RH/RM BASE ADDRESS 
016424 Ole ss 1777 001124 MOV added SGDDAT WHAT REGIST ER SHOULD BE 
016432 0237357 001124 001126 CMP SGDDAT,$BDDAT 1S THE REGISTER OK ? 
016440 001403 BEQ 70$ BR IF OK 
016442 104010 EMT 10 
016444 005137 001250 COM CKERR 7SET THE REGISTER COMPARE ERROR INDICATOR 
016450 000240 70$: NOP 
;CLEAR THE ERRORS THROUGH PORT A 
016452 012760 000011 000000 MOV #11,RMCS3(RO) ;ISSUE A DRIVE CLEAR 
;RELEASE THE DRIVE FROM PORT A 
016460 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
016466 013737 001224 001240 MOV PORTA, PTNBR ;move PORT ADDRESS TO bOCAT IO cm TYPEOUT 
016474 012760 000013 000000 MOV W13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
016502 005037 001254 CLR RELERR sCLEAR_THE ‘RELEASE ERROR ° pee OR 
016506 012737 000012 001122 MOV #RMDS , SBDADR FORM, THE ADDRESS OF RMDS FOR TYPEOUT 
016514 060037 001122 ADD RO, SBDADR ;ADD THE 1/0 BASE ADDRESS 
016520 HEE TA 11700 001124 MOV #MOL'PGM'DPR!DRY!VV,SGDDAT ;COMPARISON CONSTANT 
p163¢9 113760 1224 000010 MOVB PORTA,RMCS2(RO) ;SELECT TA. 
0165 016037 000012 001170 MOV S(RO) , STMP2 *GET THE DRIVE STATUS REGISTER FROM PORT A 
016542 042737 024001 001170 BIC #PIP!WRL'OM,STMP2 sCLEAR DONT CARES 
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Tl2 PORT 'A' RELEASE W/ERRORS TEST 

016550 013737 001170 001164 MOV STMP? ,STMPO :COPY IT INTO *STMPO' 
016556 042737 100100 001164 BIC WATA'VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
016564 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
016572 016037 000012 001172 MOV S(RO) , “GET THE DRIVE STATUS REGISTER FROM PORT B. 
016600 One? 7 024001 001172 BIC #PIP!WRL'OM,$TMPS :CLEAR DONT CARES 
016606 013737 001172 001166 MOV STMP3, 3COPY IT INTO ‘$TMP1° 
016614 042737 100100 001166 BIC WATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
016622 023737 001164 001166 CMP STMPO,$TMP1 t1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
016630 001006 BNE 72$ : 
016632 005737 001164 TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
016636 001045 BNE 74$ ‘BR IF NOT 
016640 104046 EMT 46 
016642 000137 017042 JMP 76$ sBYPASS THE REST OF THE CHECKS 
016646 013737 001170 001126 72$: MOV STMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
016654 013737 001226 001240 MOV PORTB,PTNBR ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
016662 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
016670 005737 001164 TST $TMPO [SEE IF STATUS EQ 0 FROM PORT A. 
016674 001414 BEQ 73$ ‘BR IF ZER 
016676 013737 001224 001240 MOV PORTA,PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
016704 013737 001172 001126 MOV STMP3.$BDDAT _:*BAD DATA’ FOR ERROR TYPE OUT 
016712 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A. 
016720 005737 001166 TST $TMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 
016724 001012 BNE :BR IF NOT 
016726 012737 177777 001254 73$: MOV #-1,RELERR ‘SET "RELEASE ERROR’ INDICATOR 
016734 012760 011 000000 MOV #11.RMCS1(RO)  :CLEAR THE DRIV 
016742 012760 000013 000000 MOV #13.RMCS1(RO) ;RELEASE THE DRIVE 
016750 104026 EMT 6 
016752 013737 001170 001126 74$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
016760 013737 001224 001240 MOV PORTA.PTNBR S CHANGE P 
016766 042737 100000 001126 BIC HATA, $BDDAT [DON'T CHECK THE ATTN BIT 
016774 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
017002 001401 BEQ 75$ [BR IF OK FROM PORT A. 
017004 164007 EMT ? 
017006 013737 001172 001126 75$: MOV STMP3,$BDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
017014 013737 001226 001240 MOV TB. PTNBR [CHANGE PORT NUMBER 
017022 042737 100000 001126 BIC WATA, $8DDAT [DON'T CHECK THE ATIN BIT 
017030 023737 001124 001126 CMP $GDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
017036 001401 BEQ 76$ [BR IF OK 
017040 104007 EMT 7 
017042 000240 76$: NOP 

ie 017044 000004 23: SCOPE ;LOOP ? 

544 

545 PARRA AAAAA AAA AAAAAAAAAAAAAAREAAAAAAAAAAEAAAAAEAEAAAAEAAA AERA R AES 

T*TEST 13 PORT 'B' RELEASE W/ERRORS TEST 


3* 
s*VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
;@¢ BITS ARE SET IN THE DRIVE. 


A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 
WRITE 1°S INTO RMER1 THROUGH PORT ‘B’. 
ISSUE A RELEASE COMMAND T PORT °B*. VERIFY THAT THE ‘GO° 


HROUGH 
BIT HAS RESET. THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, &ND 
THAT RAER] HAS NOT BEEN CLEARED. 
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:* D. CLEAR RMERT BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ‘B’. 
-@ 
te €. ISSUE A RELEASE COMMAND THROUGH PORT 8". VERIFY THAT THE DRIVE 
* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
& 
; bd SEHK HNSeeSeSSHeeeeeeeeeeeoeseoreeeceeeeeeeeasreseeeeeereereree 
017046 $113: 
017046 005737 001300 TST KY@CTL “PERFORMING ONLY SINGLE TEST ? 
017052 001406 BEG 3s [BR IF NOT 
017054 7 é oP. $ en IF ast ENTERED TEST 
017056 0001 00 EXEC TURN f NEXT TEST NUMBER 
017 012737 1 3068 901300 18: mOV @-1 KYBCTL 1 Sine TEST INDICATOR 
017070 012737 017104 110 23: mOV eTesTi3.$.Pm  ETUP SCOPE L $$ 
017076 012737 017104 00113 meal mV eTEST13.$.P602 . SETUP ERROR L 
017106 112737 000013 001102 “ move #13. STSTNR :ROVE #13 TO TEST 
017112 012706 001100 mOV @STACK, SP [LOAD THE STACK POINTER 
017116 012737 060012 001176 OV #10. .STIMES 7:00 10. ITERATIONS 


546 
547 
:CLEAR ATTENTION BITS FOR GOTH PORTS 
017124 113760 001224 000010 MOVE = PORTA. RACS2(RO) i SELECT PORT #A 
017132 005960 000012 CLR =—- RAIDS (RO) SEIZE THE DRIVE 
017136 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRive CLEAR 
017144 012760 000013 900000 MOV @13.RMCS1(RO) RELEASE THE DRIVE 
017152 113760 001226 10 MOV PORTB,RACS2(RO) :SELECT PORT #8 
017160 005060 00001 CLR RMDS (RO) [SEIZE THE DRIVE THROUGH PORT ‘8° 
017164 012760 000011 000000 MOV #11,RMCS1(RO) [ISSUE DRIVE CLEAR 
017172 012760 000013 000000 mOV #13.RMCS1(RO) RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT 8 
017200 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
017206 013737 001226 001242 MOV PORTB.SEIZPT ;STORE SEIZING PORT’S ADDRESS 
017214 005060 000012 CLR RMDS (RO) sWRITE RMDS 
017220 013737 001224 001244 MOV PORTA, OPPRT : OPPOSITE’ PORT ADDRESS 
ZFORCE AN ERROR 
017226 012760 177777 000014 MOV #-1,RMER1(RO)  ;SET ERROR BITS 
017234 012760 000013 000000 MOV #13°RMCS1(RO) 3 1SSUE A RELEASE COMMAND 
017242 005037 001250 CLR CKERR [CLEAR THE ‘CHECK ERROR’ INDICATOR 
017246 016037 000000 001126 MOV RMCSi(RO),SBDDAT :GET CONTENTS OF RMCS 
017254 012737 0 00112 MOV *2CS1,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
017262 060037 00112 ADD RO $QDADR 3ADD RH/RM BASE ADDRESS 
017266 012737 004012 001124 me, #46012.$GDDAT ;WHAT REGISTER SHOULD BE 
017274 013737 001126 001164 MOV SBDDAT,$TMPO ° ;MOVE REGISTER CONTENTS TO ‘STMPO’ 
017302 042737 173765 001164 BIC #°C4012,$TMPO ;SAVE SPECIFIED BITS 
017310 023737 001124 001164 CMP SGDDAT,$TMPO °;COMPARE THE BITS 
01:°316 001414 BEQ 66 7BR IF OK 
017320 013737 001126 001174 MOV SBDDAT,$TMP4 COPY "BAD DATA’ 
017326 3737 004012 001174 BIC #4012, $TMP4 *CLEAR THE MASKED BITS 
01733 4 053 7 001174 001124 BIS STMP4.$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
017344 Minsk 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
017350 000240 66$: NOP 
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3 POR 
017352 005737 001250 TST CKERR ;D1D 'GO* BIT RESET ? 
017356 90100¢ BNE +6 IF NOT 
017360 000137 017420 JMP is :"GO' BIT RESET 
017364 012760 000040 000010 MOV #CLR,RMCS2(RO) INIT THE RH/RM 
017372 113760 001226 000010 MOVB PORTE, RMCS2(RO) ":SELECT PORT B 
017400 013737 001226 001240 MOV ORTB,PTNBR ;MOV ve P PORT ADDRESS TO LOCATION FOR TYPEOUT 
017406 012760 000013 000000 MOV WTS RACS1 CRO) sRELEASE THE DRIVE THROUGH PORT B 
017414 000137 020164 JMP 2$ ‘BYPASS THE REST OF THE TEST 
VERIFY THAT DRIVE IS STILL SEIZED BY PORT B 
017420 1$: 
017420 113760 001224 000010 MOVE PORTA, RMCS2(RO) pseu! PORT A 
017426 013737 001224 001240 MOV PORTA, PTNBR zMOVE POR T ADDRESS TO LOCATION FOR TYPEOUT 
017434 005037 001250 CLR CKERR VELEAR THE ‘CHECK ERROR’ INDICATOR 
017440 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
017446 012737 000012 001122 MOV #RMDS , SBDADR FORM go ADDRESS OF ERROR MESSAGE 
017454 060037 001122 ADD RO, $BDADR zADD RM BASE ADDRESS 
017460 005037 001124 CLR SGDDAT 1 necrsieR SHOULD BE 
017464 023737 001124 001126 CMP SCDDAT, SBDDAT att THE REGISTER OK ? 
017472 001403 BEQ 68$ ‘BR IF OK 
017474 104024 EMT 24 
017476 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
017502 000240 68$: NOP 
017504 113760 001226 000010 MOVB _—sC—wPORTB, RMCS2 (RO) -SELECT PORT B 
017512 013737 001226 001240 MOV POR TB, PTNBR Move PORT ADDRESS TO eet tae FOR TYPEOUT 
017520 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
017524 016037 000014 001126 MOV RMER1(RO), SBDDAT sGET CONTENTS OF RME 
017532 012737 000 001122 MOV os R1 ,$BDA DR FORM REGISTER ADDRESS OF ERROR MESSAGE 
017540 060037 001122 ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 
017544 012737 177777 001124 MOV #177777 SGDDAT ‘WHAT REGISTER SHOULD BE 
017552 023737 001124 001126 CMP SGDDAT, $BDDAT 1S THE REGISTER OK ? 
017560 001403 BEQ 70$ ‘BR IF OK 
017562 104010 EMT 10 
017564 005137 001250 COM CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 
017570 000240 70$: NOP 
:CLEAR THE ERRORS THROUGH PORT B 
017572 012760 000011 000000 MOV #11,RMCS1(RO)  ;ISSUE A DRIVE CLEAR 
sRELEASE THE DRIVE FROM PORT B 
017 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
017606 013737 001226 001240 MOV PORTB,PTNBR :MOVE P PORT ADDRESS TO LOCATION FOR TYPEOUT 
017 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
017622 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ° INDICATOR 
017626 012737 000012 001122 MOV re hy + a FORM THE ADDRESS OF RMDS FOR TYPEOUT 
017634 060037 001122 ADD RO, SBDADR iA HE 1/0 BASE ADDRESS 
017649 HE eH 011700 001124 MOV #MOL'PGM'DPR 'DRY'VV,S$GDDAT ;COMPARISON CONSTANT 
017646 113760 001224 000010 MOVB PORTA, RMCS2(RO) : SELECT 
017654 016037 000012 001170 S(RO : “GET THE DRIVE STATUS REGISTER FROM PORT A. 
017662 042737 024001 001170 BIC #PIP!WRL'OM,STMP2 rat TC 
017670 013737 001170 001164 MOV STMP2,$TMPO sCOPY IT INTO *STMPO* 
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017676 042737 100100 001164 BIC WATA!VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
017 1137 9 001226 1 MOVB =~ PORTB RACS2(R ) iSELECT P T B. 
017712 01 9 12 00117 MOV RMDS (RO) *$ “GET THE DRIVE STATUS REGISTER FROM PORT B. 
017720 042737 924001 117 BIC #PIP!WRL! on "ST TMP CLEAR DONT CARES 
017726 013737 901172 001166 MOV STMP3,$TMP1. 7COPY IT INTO *$TMP1' 
0177 0427 7 100100 001166 BIC HATA: VV. STHPT *CLEAR PORT DEPENDENT BITS FROM THE COPY 
017748 023737 001164 001166 CMP STMPO, STM 71S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
01775 001006 BNE 72$ ‘BR IF NOT 
017752 005737 001164 TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
017756 001045 ONE 74$ <BR IF 
0177 104046 EMT 46 
017762 137 020162 JMP 76$ sBYPASS THE REST OF THE CHECKS 
7766 013737 001170 001126 728: MOV STMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
017774 013737 001226 001240 MOV PORTB,PTNBR ; SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
20002 113760 001226 000010 MOVB = PORTB.RMCS2(RO) :SELECT PORT B. 
020010 005737 001164 TST $TMPO 7SEE IF STATUS EQ 0 FROM PORT A. 
020014 001414 BEOQ 73$ ‘BR IF 
020016 013737 001224 001240 MOV PORTA, PTNBR + SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
020024 013737 001172 001126 MOV STMP3.SBDDAT :*BAD DATA’ FOR ERROR TYPE OUT 
020032 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A. 
020040 005737 001166 TST $TMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 
020044 001012 BNE 74$ ‘BR IF NOT 
020066 012737 177777 001254 73$: MOV #-1,RELERR SET “RELEASE ERROR’ INDICATOR 
020054 012760 000011 000000 MOV #11.RMCS1(RO)  :CLEAR THE DRIVE 
02 012760 000013 000000 MOV #13.RMCS1(RO) :RELEASE THE RORIVE 
020070 104026 EMT 26 
020072 013737 001170 001126 74$: MOV STMP2, SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
020100 013737 001224 001240 MOV PORTA : CHANGE PORT 
20106 042737 100000 001126 BIC #ATA, separ :DON'T CHECK THE ATTN BIT 
020114 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
20122 001401 BEQ 75$ [BR IF OK FROM PORT A. 
020124 104007 EMT 7 
020126 013737 001172 001126 75$: MOV STMP3,SBDDAT — ; CHECK RMDS FOR BIT FAILURES ~ FROM PORT B. 
20134 013737 001226 001240 MOV PORTB.PTNBR :CHANGE PORT NUMBE;. 
020142 042737 100000 001126 BIC HATA, SBDDAT “DON'T CHECK THE ATTN BIT 
020150 023737 001124 001126 CMP S$GDDAT,$BDDAT SEE IF READ OK FROM PORT 8B. 
020156 001401 BEQ 76$ ‘BR IF OK 
20160 104007 EMT 7 
020162 000240 76$: NOP 
re 020164 000004 2$: SCOPE zLOOP ? 
567 
568 {RRA AERA REAR ARARATERERAARRARAARAEEAAAAERERAERERA AREER ARES 
:STEST 14 PORT 'A® SEIZE AND CLEAR TEST 


;*VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


A. SEIZE THE DRIVE BY WRITING 0°S INTO RMDS THROUGH PORT ‘A’. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


B. ISSUE A DRIVE CLEAR THROUGH PORT ‘A* AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


C. ISSUE A MASSBUS CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


ae nenenneanennnean 
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z* D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 


010 8 
240 MOV PORTB,PTNBR ;MOYE PORT ADDRESS TO LOCATION FOR TYPEOUT 


* RETURNEE TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
** 
° ° RARER ERA EREREREEEAEERAAAEEEAEREEREAERAERERREAEEARREREE 
020166 TST14: 
020166 005737 001300 TST KYBCTL sPERFORMING ONLY SINGLE TEST ? 
020172 001406 BEQ 2$ BR IF NO 
020174 1 é BPL 1$ ‘BR IF JUST ENTERED TEST 
020176 000137 09306 JMP EXEC SRETURN & GET NEXT TEST NUMBER 
20 012737 177777 001300 1$: MOV #-1,KYBCTL 7SET SINGLE TEST INDICATOR 
020210 012737 020224 001106 2$: MOV #TEST14,$LPADR SETUP SCOPE LOOP ADDRESS | 
020216 012737 020224 001110 aaens MOV #TESTI4.$LPERR SETUP ERROR LOOP ADDRESS | 
020224 112737 000014 001102 MOVB #14,$TSTNM sMOVE #14 TO TEST NUMBER 
020232 012706 001100 MOV #STACK, SP :LOAD THE STACK POINTER | 
a 020236 012737 000012 001176 MOV #10. STIMES +:D0 10. ITERATIONS | 
599 
:SE1ZE THE DRIVE THROUGH PORT A | 
020244 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ;SELECT PORT | 
020252 013737 001224 001242 MOV PORTA.SEIZPT ;STORE SEIZING PORT* S ADDRESS 
20260 005060 000012 CLR RMDS (RO) :WRITE RMDS 
020264 113760 001226 090010 MOVB  PORTB.RMCS2(RO) °:SELECT PORT B 
020272 013737 001226 001240 MOV PORTB .PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
20 013737 001226 001244 MOV PORTB,OPPRT : OPPOSITE’ PORT ADDRESS 
20 016037 900012 001126 MOV RMDS (RO), SBDD T :SEE IF DRIVE SEIZED BY PORT A 
020314 010037 00112 MOV RO, SBDADR :RH/RM BAS E ADDR 
020320 062737 000012 001122 ADD WRADS,$BDADR § :GENERATE BAD REGISTER ADDRESS 
020326 005037 001124 CLR $GDDA REGIST ER SHOULD BE ZERO 
020332 023737 001124 001126 CMP SGDDAT,$BDDAT 1S THE REGISTER ZERO 
0340 001403 BEQ 648 7BR If IT IS 
020342 104004 EMT 4 | 
020344 000137 021564 ie JMP 1$ :BYPASS REST OF THE SUBTEST 
020350 113760 001224 000010 MOVB _— PORTA, RMCS2(RO) >SELECT PORT | 
020356 013737 001224 001240 MOV PORTA.PT move PORT oT ADDRESS TO LOCATION FOR TYPEOUT 
020564 015037 000012 001126 MOV RMDS (RO) SBDDAT :SEE IF SEIZING PORT SEES CORRECT STATUS 
020372 042737 020001 001126 BIC #OM!PIP. $BDDAT LEAR DONT CARE BITS 
020400 ate 01,700 001124 MOV #MOL! PGA! DPR!DRY!WV_SGDDAT sEXPECTED STATUS 
020406 013737 001124 001166 MOV SGDDAT,$TMP1  ;USE GOOD DATA MASK 
020414 005137 001166 COM STMP1 S COMPLEMENT THE EXPECTED STATUS 
020420 013737 001126 001164 MOV SBDDAT.$TMPO SAVE THE ACTUAL STATUS 
020426 043737 001166 001164 BIC STMP1,$TMPO [CLEAR UNWANTED 
020434 023737 001124 001164 CMP SGDDAT .STAPO ARE THE EXPECTED STATUS BITS SET ? 
020442 001401 BEQ 65$ [BR IF THEY ARE 
020444 1040U5 EMT 
020446 000240 65S: : 
sDRIVE CLEAR THROUGH PORT A FIRST 
020450 012760 000011 000000 MOV #11.RMCS1(RO)  ;ISSUE DRIVE CLEAR THROUGH PORT A 
;VERIFY THAT DRIVE STILL SEIZED BY PORT A | 
020456 MOVE — PORTB.RMCS2(RO)  :SELECT, PORT | 
| 
| 
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RNHAO RM8O DUAL PORT 
PORT ‘A’ SEIZE AND CLEAR T 
020472 005037 00125 CLR CKERR sCLEAR THE "CHECK ERROR' INDICATOR 
020476 01 9 ? 90001 001126 MOV RMDS(RO) ,SBDDAT ° ;GET CONTENTS OF 
920504 012737 000012 001122 MOV #RMDS,SBDADR ; FORM REGIST ER ADDRESS OF ERROR MESSAGE 
020512 060037 0011 ADD RO SBDADR * ;ADD RH/RM BASE ADDRESS 
020516 005037 001124 CLR [WHAT REGISTER SHOULD BE 
020522 013737 001126 001164 MOV $1mP0 [MOVE REGISTER CONTENTS TO ‘STMPO* 
0205 042737 100000 001164 BIC S50pAT, $TMPO SAVE SPECIFIED BITS 
020536 023737 001124 001164 CMP SGDDAT,$TMPO COMPARE THE B 
020544 001414 BEQ 66 [BR IF OK 
020546 013737 001126 001174 MOV SBDDAT,$TMP4 § :COPY "BAD DATA’ 
020554 042737 077777 001174 BIC #77777 .S TMP 3CL LEAR THE MASKED BITS 
020568 053737 001174 001124 BIS STMP4,$GDDAT | :°OR' WITH GOOD DATA FOR TYPEOUT 
020572 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
020576 000240 66$: NOP 
20600 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ;SELECT PORT 
20606 013737 001224 001240 MOV PORTA.PTNBR ;:MOVE PORT TADDRESS TO LOCATION FOR TYPEOUT 
029614 005037 001250 CLR CKERR :CLEAR THE * CHECK ERROR’ INDICATOR 
20620 016037 000012 001126 MOV RMDS(RO),$BDDAT °:GET CONTENTS OF RMDS 
020626 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADRESS OF ERROR MESSAGE 
20634 060037 001122 ADD RO, SBDAD ;ADD_RH/RM BASE ADDRESS 
020640 012737 011700 001124 MOV #MOL + POM! DPR DRY! W.SGDDAT ;WHAT REGISTER SHOULD BE 
20646 013737 001126 001164 MOV SBDDAT,$TMPO | :MOVE REGISTER CONTENTS TO ‘S$TMPO' 
020654 042737 100000 001164 BIC rraaarial STMPO + SAVE SPECIFIED BITS 
20662 023737 001124 001164 CMP SGDDAT,$TMPO | :COMPARE THE BITS 
020670 001414 BEQ 68 [BR IF OK 
020672 013737 001126 001174 MOV SBDDAT.S$TMP4 § : COPY ‘BAD DATA’ 
020700 042737 077777 001174 BIC #77777.$1MP4 = CLEAR THE MASKED BITS 
20706 053737 001174 001124 BIS STMP4,$GDDAT | :°OR’ WITH GOOD DATA FOR TYPEOUT 
020714 104033 EMT 3 
020716 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
020722 000240 68$: NOP 
:NOW ISSUE MASSBUS INIT 
020724 012760 000040 000010 MOV #CLR,RMCS2(RO) ;ISSUE MASSBUS INIT 
:CONFIRM THAT DRIVE STILL SEIZED BY PORT A 
020732 113760 001226 000010 MOVB = PORTB,RMCS2(RO) ;SELECT PORT B 
020740 013737 001226 001240 MOV PORTB,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
020746 005037 001250 CLR CKERR VELEAR THE "CHECK ERROR’ INDICATOR 
020752 016037 000012 001126 MOV RMDS(RO).$BDDAT °:GET CONTENTS OF RMDS 
20760 012737 000012 001122 MOV #RMDS , SBDADR 2 FORM REGISTER ADDRESS OF ERROR MESSAGE 
020766 060037 001122 ADD RO, $BDADR ADD RH/RM BASE ADDR RESS 
020772 005037 001124 CLR $GDDAT WHAT REGIS TER SHOULD BE 
020776 013737 001126 001164 MOV SBDDAT,$TMPO | :MOVE REGISTER CONTENTS TO "STMPO' 
21004 042737 100000 001164 BIC #°C77777,$TMPO :SAVE SPECIFIED BITS 
021012 023737 001124 001164 CMP SGDDAT,$TMPO | :COMPARE THE BITS 
021020 001414 BEQ 70$ ‘BR IF OK 
021022 013737 001126 001174 MOV SBDDAT.$STMP4 § :COPY "BAD DATA’ 
1030 042737 077777 901174 BIC #77777.$1MP4  :CLEAR THE MASKED BITS 
021036 053737 001174 001124 BIS STMP4,$GDDAT | :'°OR' WITH GOOD DATA FOR TYPEOUT 
021046 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
021052 000240 70$: NOP 
021054 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
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PORT IZE AN 
06106 013737 Ooges 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
021070 005037 001250 CLR CKERR sce THE "CHECK ERROR’ INDICATOR 
021074 016037 000012 001126 MOV RMDS(RO), pee CONTENTS OF RMDS 
021102 012737 000012 001122 MCV #RMDS , SBOADR ZFORM. REGISTER ADDRESS OF ERROR MESSAGE 
021110 060037 001122 ADD RO,$BDAD ; D_RH/RM BASE ADDRES 
021114 Oier ee 011700 001124 MOV #MOL !PGM! DPR! DRY! vy egeooa sWHAT REGISTER SHOULD BE 
021122 015737 001126 001164 MOV SBDDAT ,STMPO MOVE REGISTER ores TO *$TMPO' 
021130 ef te ta 100000 001164 BIC #°C77777,$1MPO) SAVE SPECIFIED BIT 
021136 023737 001124 001164 CMP SGDDAT ,STMPO [COMPARE THE BITS 
021144 001414 BEQ 72$ BR IF OK 
021146 013737 001126 001174 MOV SBDDAT .STMP4 sCOPY “BAD DATA‘ 
021154 Caer! 077777 001174 BIC #77777 ,STMP4 [CLEAR THE MASKED BITS 
a3 F344 001174 001124 ent STMP4 , $GDDAT 3"OR* WITH GOOD DATA FOR TYPEOUT 
021172 0051357 001259 COM CKERR zSET THE REGISTER COMPARE ERROR INDICATOR 
021176 000240 72$: NOP 
sRELEASE THE DRIVE FROM PORT A 
021200 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
0212 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO pogtle, _ TYPEOUT 
021214 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT 
VERIFY THAT TKE DRIVE IS STILL IN NEUTRAL 
021222 005037 001254 CLR RELERR :CLEAR_ THE ‘RELEASE ERROR ° INDICATOR 
021226 012737 000012 001122 MOV #RMDS, — FORM THE ADDRESS OF RMDS FOR TYPEOUT 
021234 060037 001122 ADD RO, $BDADR SADD THE 1/0 BASE ADDRESS 
021240 012737 011700 001124 MOV #MOL !PGM! DPR! DRY! VV,SGDDAT + ieee CONSTANT 
021246 113760 001224 000010 MOVB PORTA, RMCS2 (RO) SELECT PORT 
021254 016037 000012 001170 MOV . TMP2 T THE DRIVE” STATUS REGISTER FROM PORT A. 
021262 042737 024001 001170 BIC #PIP!WRLIOM,STMPS sCL DONT CARES 
021270 013737 001170 001164 MOV STMP2,$TMPO sCOPY IT INTO "STMPO* 
021276 042737 100100 001164 BIC HATA!VV,STMPO CLEAR go poe BITS FROM THE COPY 
21306 113760 001226 000010 MOVB PORTB,RMCS2(RO) iSELECT P T B. 
021312 016037 000012 001172 MOV R de TMP T THE DRIVE STATUS REGISTER FROM PORT B. 
021320 042737 024001 001172 BIC #PIP!WR mp! sCLEAR DONT CARES 
021326 013737 001172 001166 MOV STMP3,STMP1 ;COPY IT INTO '$iMP1° 
021334 042737 100100 001166 BIC WATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
021342 023737 001164 001166 CMP STMPO,STMP1 t1S THE STATUS REGISTER THe SAME FROM BOTH PORTS ? 
021350 001006 BNE 74$ :BR NO 
021352 005737 001164 TST STMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
021356 001045 BNE 76$ 3BR IF NOT 
021360 104046 EMT 
021362 000137 021562 JMP 78$ sBYPASS THE REST OF THE pecss 
021366 013737 001170 001126 74S: MOV STMP2 ,SBDDAT 7SET_UF Posse E BAD DATA FOR ERROR MESSAGE 
021374 013737 001226 001240 MOV PORTB,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
21402 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT POR 
021410 005737 001164 TST STMPO SEE IF STATUS EQ 0 FROM PORT A 
21414 001414 BEQ 75$ :BR_IF ZERO 
021416 013737 001224 001240 MOV PORTA,P ee 3 SEIZING ot IF TEST aos DRIVE NOT IN NEUTRAL 
021424 013737 001172 001126 MOV $TMP3,$BD 3°BAD DATA’ ds ERROR TYPE OUT 
021432 113760 001224 000010 MOVB PORTA, “RACS2 CRO) SELECT PORT A 
021440 0057357 001166 TST STMP1 SSEE IF STATUS EQ ZERO FROM PORT B. 
021444 00101 BNE 76$ 3BR_IF NOT 
021446 012737 177777 001254 75$: MOV #-1,RELERR 3SET ‘RELEASE ERROR’ INDICATOR 
021454 012760 000011 000000 MOV #11,RMCS1(RO) CLEAR THE DRIVE 
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PORT 'A’ SEIZE AND CLEAR T 
0214 Q 912760 000013 000000 mov #13,RMCS1(RO)  ;RELEASE THE DRIVE 
021472 013797 001170 001126 76$: MOV STMP2,$BDDAT  ; LOOK FOR Bit FAILURES WHEN RMDS READ 
021500 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE P NUMBER 
021506 042737 100000 001126 BIC HATA, $BDDAT DON'T check THE ATTN BIT 
021514 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK 
021522 001401 BEQ 77$ “BR IF OK OKOM PORT A. 
021524 104007 EMT 7 
021526 013737 001172 001126 77$: MOV $TMP3,$BDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
021534 013737 001226 001240 MOV PORTE PTNBR : CHANGE PORT E 
021542 042737 100000 001126 BIC A, $BDDAT [DON'T CHECK THE ATTN BIT 
021550 023737 001124 001126 CMP SeDDAT. $BDDAT :SEE IF READ OK FROM PORT B. 
021556 001401 BEQ 78$ ‘BR IF OK 
021560 10400 EMT 
021562 000240 78$: NOP 
021564 000004 1$: SCOPE ;LOOP ? 
at: 
620 FERRARA ERERERRRERERERERRERARERRERERRRERERERREREREREREREEES 
;STEST 15 PORT "B' SEIZE AND CLEAR TEST 
: SVERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
i* PORT TO RELEASE THE DRIVE. 
t* A. SEIZE THE DRIVE BY WRITING 0'S INTO RMDS THROUGH PORT 'B’. 
z° VERIFY THAT THE DRIVE HAS BEEN SEIZED. 
t® B. ISSUE A DRIVE CLEAR THROUGH PORT ‘B’ AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 
t® (. ISSUE A MASSBUS CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE 
rb DOES NOT RETURN TO NEUTRAL. 
t® D. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
i RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
*: : RAKE REREREREREEEKEREREREEREERREREEREEAEEERAKEEREEKKKK 
021566 TST15: 
021566 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
021572 001406 BEQ 2$ IF NOT 
021574 100002 BPL 1$ <BR IF JUST ENTERED TEST 
021576 000137 003062 JMP EXEC SRETURN & GET NEXT TEST NUMBER 
021602 012737 177777 001300 1$: MOV #-1,k *SET SINGLE TEST INDICATOR 
021610 012737 021624 001106 2$: MOV aTESTie: St PADR *SETUP SCOPE LOOP ADDRESS 
021616 012737 021624 001110 aaa MOV ATEST15.$LPERR SETUP ERROR LOOP ADDRESS 
021624 112737 000015 001102 ” MOV #5. STSTNM :MOVE #15 TO TEST NUMBER 
021632 012706 091100 MOV #STACK,SP [LOAD THE STACK POINTER 
ca 021636 012737 000012 001176 MOV #10. ,STIMES ?:D0 10. ITERATIONS 
622 
:SEIZE THE DRIVE THROUGH PORT B 
21644 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
021652 013737 001226 001242 MOV PORTB, SEIZPT ;STORE SEIZING PORTS ADDRESS 
021660 005060 000012 CLR RMDS :WRITE RMD 
021664 113760 001224 000010 MOVB PORTA, RMCS2(RO) “;SELECT PORT A 


“am 


6 
PT1 MACRO et 300 15=JAN=82 07:09:22 PAGE 9-40 SEQ 0077 


NHAO RM8O DUAL PORT 
PORT "B' SEIZE AND CLEAR T 
021672 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS T0 LOCATION FOR TYPEOUT 
021700 013737 001224 001244 MOV PORTA, OPPRT ; OPPOSITE’ PORT 
021706 016037 000012 001126 MOV RMDS (RO) , SBDDAT SEE IF DRIVE RET IED BY PORT B 
021714 010037 001122 MOV ,SBDAD H/RM BASE ADDRESS 
021720 062737 000012 001122 ADD #RMDS, SBDADR ‘GENERATE BAD REGISTER ADDRESS 
021726 005037 001124 CLR $GDDAT :REGISTER SHOULD BE ZERO 
021732 023737 001124 001126 CMP SGDDAT,$BDDAT 1S THE REGISTER ZERO 
021740 001403 BEQ 64$ :BR IF IT IS 
021742 104004 EMT 4 
021744 000137 023164 pon JMP 1$ sBYPASS REST OF THE SUBTEST 
021750 113760 001226 000010 MOVB - PORTB, RMCS2(RO) SELECT PORT B 
021756 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
31764 016037 000012 001126 MOV RMDS (RO) SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
021772 042737 022001 001126 BIC #OM!PIP, $BDDAT sCLEAR DONT CARE BITS 
022000 012737 011700 001124 MOV #MOL!PGM'DPR!DRY! VV, $GDDAT sEXPECTED STATUS 
22006 013737 001124 001166 MOV SGDDAT,$TMP1  ;USE GOOD DATA AS A MASK 
022014 005137 001166 COM $TMP1 ;COMPLEMENT THE EXPECTED STATUS 
022020 013737 001126 01164 MOV SBDDAT.$TMPO SAVE THE ACTUAL STATUS 
022026 043737 001166 001164 BIC STMP1,$TMPO *CLEAR UNWANTED BITS 
022034 023737 001124 001164 CMP SGDDAT.$TMPO ARE THE EXPECTED STATUS BITS SET ? 
022042 001401 BEQ 65$ [BR IF THEY ARE 
022044 104005 EMT 5 
022046 000240 65$: NOP 
sDRIVE CLEAR THROUGH PORT B FIRST 
022050 012760 000011 000000 MOV #11.RMCS1(RO)  ;ISSUE DRIVE CLEAR THROUGH PORT B 
:VERIFY THAT DRIVE STILL SEIZED BY PORT B 
022056 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
022064 013737 001224 001240 MOV PORTA, PTNBR sMOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
022072 005037 001250 CLR CKERR sCLEAR THE ‘CHECK tee i INDICATOR 
022076 016037 000012 001126 MOV RMDS(RO),$BDDAT °;GET CONTENTS OF RMDS 
022104 012737 000012 001122 MOV #RMDS, SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
022112 060037 001122 ADD RO, $BDADR sADD RH/RM BASE ADDRESS 
022116 005037 001124 CLR $GDDAT ‘WHAT REGISTER SHOULD BE 
022122 013737 001126 001164 MOV SBDDAT,$TMPO — :MOVE _REGISTER CONTENTS TO "$TMPO' 
022130 042737 100000 001164 BIC #°C77777,$TMPO SAVE SPECIFIED BITS 
022136 023737 001124 001164 CMP SGDDAT.$TMPO COMPARE THE BITS 
022144 001414 BEQ 66 ‘BR IF OK 
022146 013737 001126 001174 MOV SBDDAT.STMP4 3 COPY "BAD DATA’ 
022154 042737 077777 001174 BIC #77777.$1MP4 CLEAR THE MASKED SITS 
022162 053737 001174 001124 BIS $TMP4 , $GDDAT ‘SOR WITH GOOD DATA FOR TYPEOUT 
022172 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
022176 G00z2s0 66S: NOP 
022200 113760 001226 000010 MOVB _—sCwPORTB, RMCS2 (RO? >SELECT PORT B 
22206 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
022214 005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
022220 016037 000012 001126 MOV RMDS(RO),$BDDAT °:GET CONTENTS OF RMDS 
022226 012737 000012 001122 MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
2234 060037 00112 ADD RO, $BDADR ;ADD R BAS ADDRES 
022240 012737 011700 001124 MOV #MOL'PGM'DPR!DRY!VV, SCDDAT “WHAT REGISTER SHOULD BE 
022246 013737 001126 001164 MOV SBDDAT,$TMPO.-:MOVE REGISTER CONTENTS TO *$TMPO* 
022254 042737 100000 001164 BIC oye? STMPO + SAVE CPEC FIED BITS 
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CZRNHAO RMBO DU 
TIS PORT *'B' SEIZE AND CLEAR T 
022262 023737 001124 001164 CMP $GDDAT,STHFO COMPARE THE BITS 
022270 001414 BEQ 68S IF 
O22272 013737 001126 001174 MOV -« SBDDAT.STMP4 COPY "BAD DATA’ 
022300 042737 077777 001174 BIC -#77777.$TMP4 «CLEAR THE MASKED BITS 
022506 095737 001174 001124 BIS $INP4, $GDDAT | :"OR’ WITH GOOD DATA FOR TYPEOUT 
022316 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
022322 000240 68$: NOP 
NOW ISSUE MASSBUS INIT 
022324 012760 000040 000010 MOV —s #CLR,RMCS2(RO) ; ISSUE MASSBUS INIT 
CONFIRM THAT DRIVE STILL SEIZED BY PORT B 
022332 113760 001224 000010 MOVB —PORTA,RMCS2(RO) | SELECT PORT 
022340 013737 001224 001240 MOV - PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
022346 005037 001250 CLR —-CKERR CLEAR THE "CHECK ERROR’ INDICATOR 
022352 016037 000012 001126 MOV -—«RMDS(RO),$BDDAT °;GST CONTE/... OF RMDS 
022360 012737 000012 001122 MOV - #RMDS, SBDADR =; FORM REGISTER ADDRESS OF ERROR MESSAGE 
072366 060037 001122 ADD — RO, SBDADR :ADD_RH/RM BASE ADDRESS 
022372 005037 001124 CLR $GDDAT {WHAT REGISTER SHOULD BE 
022376 013737 001126 001164 MOV $BDDAT,$TMPO_—s = MC 'E_ REGISTER CONTENTS TO "$TMPO" 
022404 042737 100000 001164 BIC #*C77777.$TMPO SAVE SPECIFIED BITS 
022412 023737 001124 001164 CMP - $GDDAT.S$TMPO © : COMPARE THE BITS 
022420 001414 BEQ 70 :BR IF OK 
022422 013737 001126 001174 MOV $BDDAT.STMP4 «COPY "BAD DATA’ 
022430 042737 077777 001174 BIC -#77777.$TMP4 CLEAR THE MASKED BITS 
022436 053737 001174 001124 BIS  $TMP4,$GDDAT | :OR' WITH GOOD DATA FOR TYPEOUT 
022444 104034 EMT 
022446 005137 001250 COM —-CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
022452 000240 70$: NOP 
022454 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
022462 013737 001226 001240 MOV - PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
022470 005037 001250 CLR _—CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
022474 016037 000012 001126 MOV —«RMDS(RO) ,SBDDAT °;GET CONTENTS OF RMDS 
022502 012737 000012 001122 MOV #RMDS, SBDADR FORM REGISTER ADDRESS OF EXAOR MESSAGE 
022510 060037 001122 ADD —RO, SBDADR :ADD_RH/RM BASE ADDR 
022514 012737 011700 001124 MOV #MOL :PGM:DPR!DRY! WW-SGDDAT :WHAT REGISTER SHOULD BE 
022522 013737 001126 001164 MOV —- SBDDAT , STM ve REGISTER C CONTENTS TO *STMPO" 
022530 042737 100000 001164 BIC | RECTPPPPLSTMPO SAVE SPECIFIED BITS 
022536 023737 001124 001164 CMP - $GDDAT,STMPO «COMPARE THE BITS 
022544 001414 BEQ :BR IF OK 
022546 013737 001126 001174 MOV SBDDAT.$TMP4 ©: COPY BAD DATA’ 
022554 042737 077777 001174 BIC -#77777.$TMP4 CLEAR THE MASKED BITS 
022568 095737 001174 001124 BIS $INP4, $GDDAT | :OR* WITH GOOD DATA FOR TYPEOUT 
022572 005137 001250 FOM —«CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
022576 000240 72$: NOP 
RELEASE THE DRIVE FROM PORT B 
022600 113760 001226 000010 MOVE —PORTB.RMCS2(RO) :SELECT PORT 8 
022606 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
022614 012760 000013 000000 MOV BTSURACSTCRO)”  SISSUE RELEASE THROUGH PORT B 


;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
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CLR RELERR SCLEAR THE "RELEASE ERROR ° INDICATOR 
MOV ARMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO, $BDADR GADD THE 1/0 BASE ADDRESS 
MOV #MOL'PGM!DPR!DRY'VV,$GDDAT ;COMPARISON CONSTANT 
MOVB PORTA, RMCS$2(RO) ;SELECT PORT A. 
MO S(RO) , TMP2 <GET THE DRIVE STATUS REGISTER FROM PORT A. 
BIC #PIP!WRL'OM,STMP2 :CLEAR DONT CARES 
MOV STMP2,STMPO sCOPY IT INTO ‘STMPO' 
BIC WATA'VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOVB - PORTB, RMCS2(RO) SELECT PORT 8. 
MOV RMDS(RO).$TMP3 GET THE DRIVE STATUS REGISTER FROM PORT B. 
'WRL OM, STMP3 AR DONT CARES 


¢ 
MOV STMPS ,STMP1 :COPY IT INTO ‘STMP1* 
BIC WATA!VV,STMP1  ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
CMP | aaa z1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


BNE 4 sBR I 

TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
ont ise 3BR IF NOT 

JMP 78$ sBYPASS THE REST OF THE CHECKS 


MOV STMP2,SBDDAT ;SET_UP POSSIBLE BAD DATA FOR ERROR rin a 


MOV PORTB,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 

TST S$TMPO 3SEE_ IF STATUS EQ 0 FROM PORT A. 

BEQ 75$ 3BR IF ZERO 

MOV PORTA,PTNBR 3SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV TMP3, SBDDAT ;"BAC DATA’ FOR ERROR TYPE OUT 

MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 

i STMP1 e+ a STATUS EQ ZERO FROM PORT B. 

MOV SET ‘RELEASE ERROR’ INDICATOR 


#-1,RELERR 

MOV #11,RMCS1(RO) ;CLEAR TH 

| areata sRELEASE THE DRIVE 

MOV STMP2,SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 

MO zCHANGE POR 

BIC #ATA, SBDDAT ;DON'T CHECK THE ATTN BIT 

MP sALL BITS OK ? 

BEQ bg 3;BR IF OK FROM PORT A. 

MOV $TMP3,SBDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
P NB GE PORT NUMBER 


ORTB,PTNBR : 
BIC HATA, $BDDAT [DON'T CHECK THE ATTN BIT 
CMP SGDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 


BEQ 78$ :BR I 

EMT 7 

NOP 

SCOPE ;LOOP ? 

PTITTITITITILI LLL LLL LiL Litt et iti 
6 SEIZE ‘A’ BY RMCS1 TEST 


THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
DRIVE IS _IN NEUTRAL. 
READ THE CONTROL REGISTER (RMCS1) THROUGH PORT ‘A*; VERIFY THAT 


SEQ 0079 
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A 
SEIZE vA BY RMCS1 TEST 
* THE DRIVE IS SEIZED. 
38 
:* B. ISSUE A RELEASE COMMAND THROUGH PORT ‘A'; VERIFY THAT THE DRIVE 
3 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
: + pagename li anatase aecaieaeiane aus 
023166 
023166 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
023172 001406 BEQ 2s F NOT 
023174 120006 BPL 1$ “BR IF JUST ENTERED TEST 
023176 00013 003062 JMP SRETURN & GET NEXT TEST NUMBER 
Os e508 012737 1777 001300 1$: MOV #-1,KYBCTL SET SINGLE TEST INDICATOR 
02321 012737 023224 001106 2S: MOV #TEST16,$LPADR SET UP SCOPE LOOP ADDRESS 
023216 012737 023224 001110 nhs MOV ATEST16,$LPERR SETUP ERROR LOOP ADDRESS 
023224 Ngee? 000016 001102 MOVB #16,$TSTNM sMOVE #16 TO TEST NUMBER 
023232 012706 001100 MOV #STACK SP sLOAD THE STACK POINTER 
023236 012727 000012 001176 MOV #10. ,$TIMES +:D0 10. ITERATIONS 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
023244 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
023252 005060 000012 CLR RMDS (RO) SSEIZE THE DRIVE 
023256 012760 000011 000000 MOV #11 RCS (RO) 31SS UE DRIVE CLEAR 
023264 012760 000013 000000 MOV #13.RMCS1(R RELEASE THE DRIVE 
023272 113760 001226 000010 MOVB _—«—wPORTB, Fase CRO) 3SEL ECT PORT #B 
023300 005060 000012 CLR RMDS(R RO) *SEIZE THE DRIVE THROUGH PORT ‘B‘ 
023304 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
023312 012760 000013 000000 MOV #13.RMCS1(RO) :RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT A 
023320 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
023326 013737 001224 001242 MOV PORTA.SEIZPT ;STORE SEIZING PORT* S ADDRESS 
23334 005760 000000 TST RMCS1(RO) ;READ RMCSI 
023340 113760 001226 000010 MOVB - PORTB, RMCS2(RO) °;SELECT PORT B 
023346 013737 001226 001240 MOV POR ie. PTNBR sMOVE P PORT ADDRESS. TO LOCATION FOR TYPEOUT 
023354 013737 001226 001244 MOV POR OPPRT : OPPOSITE’ PORT ADDRES 
23362 016037 000012 01175 MOV PANS tho) $8 DAT :SEE IF DRIVE SEIIED BY PORT A 
023370 010037 001122 MOV RO, R *RH/RM BASE A 
023374 062737 000012 001122 ADD #RMDS,$BDADR § :GENERATE BAD REGISTER ADDRESS 
023402 005037 001124 CLR $GDDA *REGISTER SHOULD BE ZERO 
023406 023737 001124 001126 CMP SGDDAT,$BDDAT +18 THE REGISTER ZERO 
023414 001403 BEQ 64$ :BR IF IT IS 
023416 104004 EMT 4 
023420 000137 024110 Ae JMP 1$ sBYPASS REST OF THE SUBTEST 
023424 113760 001224 000010 MOVB —- PORTA,RMCS2(RO) SELECT POR 
023432 013737 001224 001240 MOV PORTA,P! BR move PORT aponess TO LOCATION FOR TYPEOUT 
023440 016037 000012 001126 MOV RMDS (RO) $BD bite sSEE IF SEIZING G PORT SEES CORRECT STATUS 
023446 042737 020001 001126 BIC #OM'PIP, $8DD AR DON ITS 
023454 012737 011700 001124 MOV #MOL !P Pch DPR! DRY: wv, SsDDAT sEXPECTED STATUS 
023462 013737 001124 001166 MOV SGDDAT,STMP1 ;USE GOOD DA Sk 
023470 005137 001166 COM € ORPL CEMENT THE EXPECTED STATUS 
023474 013737 001126 001164 MOV SBDDAT,S$TMPO (:SAVE THE ACTUAL STATUS 
023502 043737 001166 001164 BIC STMP1,$TMPO *CLEAR UNWANTED alt S 


SEQ 0080 





RMBO Dy 


AL 


023737 


ro lea 
ANNNNNON NN NON 


233s 
RRA 


88=238 
Win 


-—oo° 
-——— 
NQOOONVNONNE NONNNOUN 


ANNONNS 
WNW OO 


Vase 


ah 
FoSss 
WRWWE =U 
NIN 
Www 
NNN NNN 


So 
™m 


001124 001164 


224 000010 
001224 001240 
013 000000 


000012 001122 
011700 001124 


S $8S8S8x 
——3 = ee re 
o 


sss 


65$: 


D 
T PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-44 
A‘ BY RMCS1 TEST 


DAT, STMPO 


sRELEASE THE DRIVE FROM PORT A 


3 VERIFY 


66$: 


67$: 


68$: 


69$: 


MOVB 
MOV 
MOV 


3 ARE | an ite STATUS BITS SET ? 
BR IF T ARE 


PORTA,RMCS2(RO) ;SELECT PORT A 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION we TYPEOUT 
#13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT A 


THAT THE DRIVE IS STILL IN NEUTRAL 


RELERR 
nO SabA , SBDADR 


CLEAR _THE "RELEASE ERxOR ° INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
THE 1/0 BASE ADDRESS 


DA 
#MOL !PGM MIDPRIDRVIV, att on 3COMPAR.SON CONSTANT 


PORTA, RMCS2 (RO) 
RMDS (RO) , STMP2 


STMP3,$TM 
#ATALVV,STNPI 
STMPO,STM 
66$ 

$TMPO 

68$ 

46 

70$ 
STMP2,SBDDAT 
PORTB,PTNBR 
PORTB,RMCS2(RO) 
$STMPO 

67$ 
PORTA,PTNBR 
STMPS 


*SBDDAT 
PORTA, RMCS2(RO) 
$TMP1 

#~1,RELERR 

qi RCS) CRO) 
#13.RMCS1(RO) 
STP, SBDDAT 
PORTA, PTNBR 
AATA, AS BDDAT 
SGDDAT, $BDDAT 
69$ 

$TMP3, SBDDAT 
PORTB,PTNBR 
#ATA, $BDDAT 
SGDDAT, SBDDAT 


:SELECT PORT A 
:GET THE DRIVE” STATUS REGISTER FROM PORT A 
CLEAR DONT CARES 
: COPY IT INTO ‘STMPO* 
CLEAR gt co BITS FROM THE COPY 


:SELECT P T 8B. 

:GET THE DRIVE STATUS REGISTER FROM PORT B. 
a onene CARES 

3COPY IT oly 


7CLEAR PORT DEP ENDENT BITS FROM THE COPY 
[1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


BR _IF NOT 
:REGISTERS ARE THE SAME: ARE THEY ZERO ? 
3BR IF NOT 


sBYPASS THE REST OF THE CHECKS 

7SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING, ate TEST SHOWS DRIVE NOT IN NEUTRAL 
SEE IF anes EQ 0 FROM PORT A. 


E 
: SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
;"BAD DATA’ 4% ERROR TYPE OUT 


sSELECT PORT A 

[SEE IF STATUS EQ ZERO FROM PORT B. 
7BR_IF NOT 

sSET 'R REL EAS ERROR" INDICATOR 

CLE DRIVE 

RELEASE THE DRIVE 

;LOOK FOR BIT FAILURES WHEN RMDS READ 
; CHANGE PORT NUMBER 

:DON" T CHECK THE ATTN BIT 


8 
3BR IF OK PROM PORT A. 


CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
: CHANGE POR 

[DON'T CHECK THE ATTN BIT 

7SEE IF READ OK FROM PORT B. 


SEQ 0081 
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BEQ 70$ 3BR IF OK 
EMT 7 
70$: NOP 
1$: SCOPE ;LOOP ? 
[RRRRRRARERER RRR E TEETER EERE EERE Ree 
:STEST 17 SEIZE 'B* BY RMCS1 TEST 


{VERIFY THAT sar THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
7*IF THE DRIVE IS_IN TRAL. 

A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT 'B'; VERIFY THAT 
THE DRIVE IS SEiZED. 


st 

os 

* 

* B. ISSUE A RELEASE COMMAND THROUGH PORT 'B'; VERIFY THAT THE DRIVE 
- RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
rs 


SRR ERA EEREREREREREREREREEEEEREEEREEREREEREREREEEREERE 


T17: 


TST KYBCTL sPERFORMING ONLY SINGLE TEST ? 

BEQ 2$ 7BR IF NOT 

BPL 1$ 7BR_IF JUST gin TEST 

JMP RETURN & GET NEXT TEST NUMBER 
1$: MOV #-1,KYBCTL 3SET SINGLE TEST INDICATOR 
2s: MOV MTEST17,$LPADR ;SETUP SCOPE LOOP ADDRESS 
TeST17 MOV #TEST17.$LPERR ;SETUP ERROR LOOP ADDRESS 

MOVB #17,$TSTNM sMOVE #17 TO TEST NUMBER 

MOV #STACK,SP ;LOAD THE STACK POINTER 


MOV #10. ,$TIMES 33D0 10. ITERATIONS 


3CLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA, RMCS2(R0) ;SELECT PORT #A 
CL (RO) 3S 


RMDS : 
MOV #11 fans 31 ng ISSUE DRIVE CLEAR 
MOV #13,RMCS1(RO) RELEASE THE DRIVE 
MOVB PORTB,RMCS2(RO) ;SELECT PORT #8 
CLR RMDS (RO) 3SEIZE THE DRIVE THROUGH PORT ‘B' 
MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
MOV #13.RMCS1(RO) ;RELEASE THE DRIVE 


3SEIZE THE DRIVE THROUGH PORT B 


MOVB PORTB. RMCS2(RO) >SELECT PORT B 

MOV PORTB, SEIZPT :STORE,S SEIZING PORT’S ADDRESS 
TST RMCS1(R RMCS1 

MOVB PORTA, RMCS2(RO) © ;:SELECT PORT A 

MOV PORTA,PTNBR 0) vie PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV PPRT :"OPPOSITE’ PORT ADDRESS 

MOV RMDS(RO),$BDDAT :SEE IF DRI“= SEIZED BY PORT B 
MOV RO, SBDADR :RH/RM BASE ADDRESS 

ADD #RMDS,$BDADR § GENERATE BAD REGISTER ADDRESS 
CLR $GDDAT ‘REGISTER SHOULD BE ZERO 

CMP SGDDAT.$BDDAT 31S THE REGISTER ZERO 

BEQ 64$ <BR IF IT IS 
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17 SEIZE 'B’ BY RMCS1 TEST 
024342 104004 EMT 4 
0 4344 000137 025034 as JMP 1$ :BYPASS REST OF THE SUBTEST 
024350 113580 001226 000010 MOVB PORTB,RMCS2(RO) wisy PORT B 
024356 013737 001226 001240 MOV PORTB,PTNBR sMOVE P PORT ADDRESS TO LOCATION FOR TYPEOUT 
Oct 366 816037 000012 001126 MOV RMDS (RO) SBDDAT sSEE IF SEI IZING PORT SEES CORRECT STATUS 
024372 042737 020001 001126 BIC #0M!PIP, $BDDAT LEAR DONT CARE BITS 
24400 012737 011700 001124 MOV #MOL! PGM'DPR'DRY! VV.$GDDAT sEXPECTED STATUS 
24406 013737 001124 001156 MOV SGDDAT,$TMP1 ;USE GOOD DATA. AS A MASK 
024414 005137 001166 COM $TMP1 7COMPLEMENT THE EXPECTED STATUS 
024420 013737 001126 001164 MOV SEDDAT STMPO  : SAVE THE ACTUAL STATUS 
024426 043737 001166 001164 BIC 1,$T MPO CL AR UNWANTE TS 
024434 023737 001124 001164 CMP aA STMPO ARE THE EXPECTED STATUS BITS SET ? 
024442 001401 BEQ 65$ 3;BR IF THEY ARE 
024444 104005 EMT 
024446 000240 65$: NOP 
;RELEASE THE DRIVE FROM PORT B 
024450 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT 6 
024456 013737 001226 001240 MOV PORTB,PTNBR sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
024464 012760 000013 000000 MOV #13, RMCS1(RO) Zs ISSUE RELEASE THROUGH PORT B 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
024472 005037 001254 CLR RELERR sCLEAR THE ‘RELEASE ERROR ° INDICATOR 
024476 012737 000012 001122 MOV #RMDS ,SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
24504 060037 001122 ADD RO, SBDADR ‘ADD T HE 1/0 BASE ADDRESS 
024510 012737 011700 001124 MOV #MOL'PGM!DPR!DRY!VV, eg lh je CONSTANT 
024516 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT 
024524 016037 000012 001170 MOV $(RO) , STMP2 *GET THE PRAIVE * STATUS REGISTER FROM PORT A. 
024532 042737 024001 001170 BIC #PIP!WRL'OM,$TMP2 sCLEAR DONT CARES 
024540 013737 001170 001164 MOV STMP2, STMPO sCOPY IT INTO *STMPO' 
024546 042737 100100 001164 BIC #ATA!VV,ETMPO * CLEAR PORT DEPENDENT BITS FROM THE COPY 
024554 113760 601226 000010 MOVB _—s—~PORTB, RACS2 (RO) [SELECT PORT 8. 
024562 016037 000012 001172 MOV RMDS(R de *GET THE DRIVE Lal REGISTER FROM PORT B. 
024570 042737 024001 001172 BIC #PIP!WRL'OM,STMPS :CLEAR DONT CARES 
024576 013737 001172 001166 MOV $TMP3,31MP1 3COPY IT INTO ° 
24604 042737 100100 001166 BIC HATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
024612 023737 091164 001166 CMP $TMPO,$TMP1 *IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
024620 001006 BNE 66$ [BR IF NOT 
024422 005737 001164 TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
024626 001045 BNE 68$ ‘BR IF NOT 
024630 104046 EMT 46 
024632 000137 025032 JMP 70$ sBYPASS THE REST OF THE CHECKS 
024636 013737 001170 001126 66$: MOV STMP2,$BDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
24644 013737 001226 001240 MOV PORTB,PTNBR * SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
024652 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
24660 005737 001164 TST $TMPO [SEE IF STATUS EQ 0 FROM PORT A. 
024664 001414 BEQ 67$ ‘BR IF ZERO 
24666 013737 001224 001240 MOV PORTA, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
024674 013737 001172 001126 MOV STMP3,.SBDDAT _: "BAD DATA’ FOR ERROR TYPE OUT 
02470 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A 
024710 005737 001166 TST $TMP1 SEE IF STATUS EQ ZERO FROM PORT B. 
024714 001012 BNE 68$ ‘BR IF NOT 
024716 012737 177777 001254 67$: MOV #-1,RELERR SSET "RELEASE ERROR’ INDICATOR 
024724 012760 000011 000000 MOV #11,RMCS1(RO) CLEAR THE DRIVE 





; 
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BY RMCS1 TEST 
024732 012760 000013 000000 MOV #13,RMCS1(RO)  ;RELEASE THE DRIVE 
024740 1040 $ EMT 
02474 0137 1170 001126 68%: MOV STMP2,SBDDAT — ;LOOK FOR BIT FAILURES WHEN RMDS READ 
024750 013737 001224 00124 MOV PORTA.PTNBR :CHANGE PORT NUMBER 
024756 0427 7 001126 BIC #ATA, $BDDAT ‘DON'T CHECK THE ATTN BIT 
024764 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
024772 001401 BEQ 9s BR IF OK FROM PORT A. 
024774 104007 EMT 
024776 013737 001172 001126 69$: MOV $TMP3, SBDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
35004 013737 001226 001240 MOV PORTB,PTNBR ;CHANGE POR R 
025012 042737 100000 001126 BIC WATA, $BpDaT ‘DON'T CHECK THE | ATTN BIT 
025020 023737 001124 001126 CMP SGDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
025026 001401 BEQ 70$ ‘BR IF OK 
5030 104007 EMT 7 
025032 000240 70$: NOP 
25034 000004 1$: SCOPE :LOOP ? 
£80 
681 FRRRAAARAAAA RARER REAR EAAA EAA ARAEAAAERAAARARARAAERRRRERAERR EERE 
;HTEST 20 PORT ‘A’ INHIBIT SEIZE BY RMCS1 TEST 
| < SVERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 
z* REQUEST’ IF THE DRIVE IS SEIZED. 
te A. SIZE THE DRIVE THROUGH PORT °B" BY READING RMCS1. VERIFY THAT 
7* THE DRIVE HAS BEEN SEIZED. 
3* 
:* B. READ THE CONTROL REGISTER FROM PORT ‘A’. VERIFY THAT "DVA’ IS NOT 
3* 
** 
t® (C. ISSUE A RELEASE COMMAND THROUGH PORT ‘8’. VERIFY THAT THE DRIVE 
:* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
*® 
*: RERAEAAARARAEREREEEREEEEERERARAARERAEEERERERAEAERERAEERERRERREEEE 
025036 1ST20: 
025036 005737 001300 TST KYBCTL ;PERF ORMING ONLY SINGLE TEST ? 
025042 001406 BEQ 2s ‘BR T 
025044 100002 BPL 1$ :BR re Ip JUST ENT ENTERED TEST 
025046 000137 003062 JMP EXEC :R T TEST NUMBER 
025052 012737 177777 001300 1$: MOV eer SINGLE test INDICATOR 
25060 012737 025074 001106 2$: MOV aTEST OS StPADR [SETUP SCOPE LOOP ADDRESS 
025066 012737 025074 001110 site MOV ATEST20.$LPERR SETUP ERROR LOOP ADDRESS 
025074 112737 000020 001102 MOVB #20,$TSTNM :MOVE #20 TO TEST NUMBER 
025102 012706 001100 MOV #STACK, SP *LOAD THE STACK POINTER 
poe 025106 012737 000012 001176 MOV #10. ,STIMES +:D0 10. ITERATIONS 
699 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
025114 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
025122 005060 000012 CLR RO) *SEIZE THE DRIVE 
025126 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
025134 012760 000013 000000 MOV #13.RMCS1(RO) :RELEASE THE DRIVE 
025142 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT 
025150 005060 000012 CLR RMDS (RO) *SEIZE THE DRIVE THROUGH PORT ‘B* 
025154 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
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T20 PORT ‘A’ INHIBIT SEIZE BY RMCS1 TEST 
025162 012760 000013 000000 MOV #13,RMCS1(RO)  ;RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT B 
025170 113760 001226 000010 MOVB  PORTB, RMCS2(RO) ;SELECT PORT B 
025176 013737 001226 001242 MOV PORTB.SEIZPT ;STORE SEIZING PORT’S ADDRESS 
025204 005760 90090 TST RMCS1(RO) sREAD RMCS1 
025210 113760 001224 000010 MOVB PORTA, RMCS2(RO) “:SELECT PORT A 
025216 013737 0C1226 001240 MOV PORTA,PT sMOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
025224 013737 001224 001244 MOV PORTA, OPPRT : OPPOSITE’ PORT ADD 
025232 016037 900012 001126 MOV RMDS(RO),SBDDAT :SEE IF DRIVE SEIZED BY PORT B 
025240 010037 00112 MOV RO, SBDADR [RH/RM BASE ADDR 
025244 062737 000012 001122 ADD #RMDS,$BDADR § GENERATE BAD REGISTER ADDRESS 
025252 005037 007124 CLR SGDDA SREGISTER SHOULD BE ZERO 
025256 023737 001124 001126 CMP SGDDAT,S$BDDAT 31S THE REGISTER ZERO 
025264 001403 BEQ 64$ 7BR IF IT IS 
025266 104004 EMT 4 
02270 000137 026102 “s JMP 1$ ;BYPASS REST OF THE SUBTEST 
025274 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
025302 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
025310 016037 000012 001126 MOV RMDS(RO),SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
025316 042737 020001 001126 BIC #0M!PIP, $BDDAT sCLEAR DONT CARE BITS 
025324 012737 011700 001124 MOV WMOL'PGM'DPR!DRY!VV,$GDDAT ;EXPECTED STATUS 
025332 013737 001124 001166 MOV SGDDAT,$TMP1  ;USE GOOD DATA AS A MASK 
025340 005137 001166 COM $TMP > COMPLEMENT THE EXPECTED STATUS 
025344 013737 001126 001164 MOV SBDDAT .STMPO sSAVE THE ACTUAL STATUS 
025352 043737 001166 001164 BIC STMP1, $TMPO *CLEAR UNWANTED BITS 
025360 023737 001124 001164 CMP SGDDAT.$TMPO ARE THE EXPECTED STATUS BITS SET ? 
025366 001401 BEQ 65$ ‘BR IF THEY ARE 
025370 104005 EMT 5 
025372 000240 65$: NOP 
025374 113760 001224 000010 MOVB = PORTA,RMCS2(RO) ;SELECT PORT A 
025402 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
:READ RMCS1 THROUGH PORT A = TRY TO SET PORT REQUEST 
025410 005037 001250 CLR CKERR ZCLEAR THE ‘CHECK ERROR® INDICATOR 
025414 016037 000000 001126 MOV RMCS1(RO),$BDDAT ;GET CONTENTS OF RMCS! 
025422 012737 000000 001122 MOV #RMCS1.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
025430 060037 001122 ADD RO, SBDADR sADD RH/RM BASE ADDRESS 
25434 005037 001124 CLR $GDDAT SWHAT REGISTER SHOULD BE 
025440 013737 001126 001164 MOV SBDDAT.STMPO  :MOVE REGISTER CONTENTS TO ‘STM?O° 
025446 042737 173700 001164 BIC #°C4077,$TMPO ;SAVE SPECIFIED BITS 
025454 023737 001124 001164 CMP SGDDAT,$TMPO °:COMPARE THE BITS 
025462 001414 BEQ 6 ; OK 
025464 013737 001126 001174 MOV SBDDAT,$TMP4 § ;COPY ‘BAD DATA’ 
025472 042737 004077 001174 BIC #4077, STMP4 SCLEAR THE MASKED BITS 
025500 053737 001174 001124 BIS STMP4.$GDDAT :'OR*® WITH GOOD DATA FOR TYPEOUT 
025506 104010 EMT 1 
025510 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
025514 000240 66$: NOP 


DRIVE SHOULD RETURN TO NEUTRAL 
;RELEASE THE DRIVE FROM PORT B 





a 
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T20 PORT ‘A’ INHIBIT SEIZE BY RMCS1 TEST 
025516 11 760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
025526 013737 0012 $ 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
025532 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
SVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
025540 905037 001254 CLR RELERR ZCLEAR THE "RELEASE ERROR * INDICATOR 
025544 012737 900012 001122 MOV #REDS,SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
025552 960037 00112 ADD RO, $BDADR ZADD THE 1/0 BASE ADDRESS 
025556 O1¢7 7 011700 001124 MOV #MOL 'PGM'DPR!DRY!VV,SGDDAT i COMPARISON CONSTANT 
025564 113760 001224 000010 MOVB PORTA, RMCS2 (RO) SELECT PORT 
025572 016937 000012 001170 MOV RMDS (RO) , STMP2 “GET THE ORIVE “STATUS REGISTER FROM PORT A. 
025600 O42? 7 024001 001170 BIC #PIP'WRL'OM,STMP. :CLEAR DONT CARES 
025606 013737 001170 001164 MOV STMP2,$TMPO sCOPY IT INTO ° 
025614 042737 100100 001164 BIC WATA'VV,$TMPO =: CLEAR PORT pPEPENDENT BITS FROM THE COPY 
025622 113760 001226 000010 MOVB —— PORTB, RMCS2(RO) ;SELECT T 6. 
025630 016037 000012 0011 7¢ MOV RMDS(R ,STMPS:GET THE PORIVE STATUS REGISTER FROM PORT B. 
025636 040737 024001 00117 BIC #PIP!WRL'OM,STMP :CLEAR DONT CARES 
025644 013737 001172 001166 MOV $TMP3,STMP1 7COPY IT INTO *STMP1 
025652 042737 100100 001166 BIC WATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE C 
025660 023737 001164 001166 CMP $TMPO,STMP1 tIS THE STATUS REGISTER THE SAME FROM OBOTH PORTS ? 
025666 001006 BNE 68$ ‘BR IF NOT 
025670 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
025674 001045 BNE 70$ [BR IF NOT 
025676 104046 EMT 46 
025700 000137 026100 JMP 72$ :BYPASS THE REST OF THE CHECKS 
625704 013737 001170 001126 68$: MOV STMP2,$BDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
025712 013737 001226 001240 MOV PORTB,PTNBR TSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
025720 113760 001226 000010 MOVB = PORTB.RMCS2(RO) :SELECT PORT B. 
025726 005737 001164 TST $TMPO TSEE IF STATUS EQ 0 FROM PORT A. | 
025732 001414 BEQ 69S 3BR IF ZERO 
25734 013737 001224 001240 MOV PORTA, PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
025742 013737 001172 001126 MOV $TMP3.$BDD :*BAD DATA’ FOR ERROR TYPE OUT 
025750 113760 001224 000010 MOVB _—s— PORTA, eco CRO) SSELECT PORT 
025756 005737 001166 TST $TMP1 :SEE IF STATUS’ EQ ZERO FROM PORT 3. 
025762 00101 BNE 70$ ‘BR IF NOT 
25764 012737 177777 001254 69$: MOV #-1,RELERR [SET "RELEASE ERROR’ INDICATOR 
025772 012760 000011 000000 MOV qi *RAES) CRO) [CLEAR THE DRIVE 
02 012760 000013 000000 MOV #13.RMCS1(RO) :RELEASE THE DRIVE | 
026010 013737 001170 70$: MOV STMP2,$BDDAT LOOK FOR BIT FAILURES WHEN RMDS READ 
026016 013737 001224 001240 MOV PORTA.PTNBR :CHANGE PCRT NUMBE 
026024 042737 100000 001126 BIC HATA, SBDDAT :DON" T CHECK THE ATTN BIT 
026032 02 737 001124 001126 CMP SGDDAT, $BDDAT Ok ? 
26040 001401 BEQ 71$ ‘BRS IF OK FROM PORT A. 
026042 104007 EMT ? 
026044 013737 001172 001126 71$: MOV STMP3, SBDDAT sCHECK RMDS FOR BIT FAILURES - FROM PORT B. | 
026052 013737 001226 001240 MOV PORTB,PTNBR iCHANGE PORT NUMBER 
26060 042737 100000 001126 BIC #ATA, SBpDaT ‘DON'T CHECK THE | ATTN BIT 
026056 023737 001124 001126 CMP a ,SBDDAT SEE IF READ OK FROM PORT 8. 
026074 001401 BEQ TBR IF OK 
026076 104067 EMT 
026100 000240 72$: NOP 
026102 000004 1$: SCOPE :LOOP ? 


700 
716 
717 


ERR RAR AARARRTAAT EAA RAAAERAEREREAAAAA AAA A AER E ERR E ES see 





=o 
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Tel PORT *B’ INHIBIT SEIZE BY RMCS1 T 


eeTEST 21 PORT ‘B* INHIBIT SEIZE BY RMCS1 TEST 
i eVERIFY THAT at ge THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 


* REQUEST’ IF THE DRIVE IS SEIZED. 
;* 
te A, SEIZE THE DRIVE THROUGH PORT ‘A’ BY READING RMCS1. VERIFY THAT 
* THE DRIVE HAS BEEN SEIZED. 
3* 
:* B. READ THE CONTROL REGISTER FROM PORT 'B'. VERIFY THAT ‘DVA' IS NOT 
;* 
3@ 
t® (. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
ie RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
** 
° 2 RAE EEEEREREEREREEEEEREREREAREEEREERAREEERERKRKEE 
026104 +8121: 
026104 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
026110 001406 BEQ 2$ :BR IF 
026112 100002 BPL 1$ ‘BR IF JUST ENTERED TEST 
026114 000137 003062 JMP EXEC SRETURN & GET NEXT TEST NUMBER 
026120 012737 177777 001300 1$: MOV #1, KYBCTL *SET SINGLE TEST INDICATOR 
026126 012737 026142 001106 2$: MOV aTest ot SLPADR SETUP SCOPE LOOP ADDRESS 
026134 012737 026142 001110 sella MOV #TEST21.$LPERR :SETUP ERROR tooP ADDRESS 
026142 112737 021 001102 MOVB #21,$TSTNM :MOVE #21 TO TEST NUMBER 
026150 012706 001100 MOV #STACK, SP :LOAD THE STACK POINTER 
i 026154 012737 000012 001176 MOV #10. ,STIMES 7:D0 10. ITERATIONS 
719 
ZCLEAR ATTENTION BITS FOR BOTH PORTS 
026162 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
026170 005060 000012 CLR RMDS (RO) *SEIZE THE DRIVE 
026174 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
026202 012760 000013 000000 MOV #13.RMCS1(RO) RELEASE THE DRIVE 
026210 113760 001226 000010 MOVB —- PORTB, RMCS2(RO) 3SEL LECT PORT #48 
026216 005060 000012 CLR RMDS (RO) ‘SEIZE THE DRIVE THROUGH PORT 'B’ 
026222 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
026230 012760 000013 000000 MOV #13.RMCSI(RO) :RELEASE THE ORIVE 
:SEIZE THE DRIVE THROUGH PORT A 
26236 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ;SELECT PORT 
026244 013737 001224 001242 MOV PORTA, SEIZPT :STOR ORE SEIZING PORT*S ADDRESS 
026252 005760 000000 TST RMC RM si 
026256 113760 001226 000010 MOVB = PORTB,RMCS2(RO) “:SELECT PORT B 
26264 013737 001226 001240 MOV PORTB.PT NBR Shove PORT ADDRESS TO LOCATION FOR TYPEOUT 
026272 013737 001226 001244 MOV PORTB,OPPRT ; OPPOSITE’ PORT ADDRESS 
26300 016037 000012 001126 MOV RMDS (RO) , SBDDAT iSEE IF DRIVE SEIZED BY PORT A 
026306 010037 001122 MOV RO, RO. SBDADA 7RH/RM BASE A 
026312 062737 000012 001122 ADD #RMDS, SBDADR :GEN NERATE BAD REGISTER ADDRESS 
026320 005037 001124 CLR $GDDAT :REGISTER SHOULD BE ZERO 
026324 023737 001124 001126 CMP SGDDAT.$BDDAT :1S THE REGISTER ZERO 
026332 001403 BEQ 64$ ‘BR IF IT IS 
026334 104004 EMT 4 
026336 000137 027150 JMP 1$ :BYPASS REST OF THE SUBTEST 


026342 64$: 


ao 
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026342 1137 0 001224 000010 move PORTA, RMCS2(RO) -SELECT PORT 
026350 013737 001224 001240 MOV MOVE PORT OT ODRESS TO LOCATION FOR TYPEOUT 
026356 016037 000012 001126 MOV RMDS (RO) Sear. 3SEE IF SEIZING PORT SEES CORRECT STATUS 
26364 042737 020001 001126 BIC #OM!PIP, $BDDAT AR DONT CARE BITS 
026372 die? 7 011700 001124 MOV #MOL :PGHDPR!DRY !VVSGDDAT sEXPECTED STATUS 
26400 013737 001124 001166 MOV SGDDAT,$TMP1 ;USE GOOD DATA AS A MASK 
026406 005137 001166 COM $TMP1 SE ORPLEMENT THE EXPECTED STATUS 
026412 013737 001126 001164 MOV SBDDAT.$TMPO SAVE THE ACTUAL STATUS 
026420 043737 001166 001164 BIC STMP1,STMPO ‘CLEAR UNWANTED BITS 
aseee? 023737 001124 001164 CMP SGDDAT,.$STMPO ARE THE EXPECTED STATUS BITS SET ? 
26434 001401 BEQ 65$ ‘BR IF THEY ARE 
026436 104005 EMT 5 
026440 000240 65$: NOP 
026442 113760 001226 000010 MOVB = PORTB,RMCS2(RO) ;SELECT PORT B 
026450 013737 001226 001240 MOV PORTB,PTNBR sMOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
READ RMCS1 THROUGH PORT B - TRY TO SET PORT REQUEST 
C26456 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
026462 016037 000000 001126 MOV RMCS1(RO),$BDDAT ;GET CONTENTS 0 1 
026470 012737 000000 001122 MOV #RMCS1, SBDADR s FORM aay EAE ADDRESS OF ERROR MESSAGE 
026476 060037 001122 ADD RO, $BDADR yADD RH/RM BASE ADDRESS 
026502 005037 001124 CLR SDDAT WHAT r REGIST ER SHOULD BE 
026506 013737 001126 001164 MOV $BDD. MPO “MOV E REGISTER CONTENTS TO ‘STMPO’ 
026514 042737 173700 001164 BIC sepaee STMPO SAVE SPECIFIED BITS 
026522 023737 001124 001164 CMP SGDDAT, $TMPO "3 COMPAR — THE BITS 
026530 001414 BEQ I 
026532 013737 001126 001174 MOV SBDDAT.$TMP4 § :COPY "BAD DATA’ 
026540 042737 004077 001174 BIC #4077,$TMP4 SCLEAR THE M¢SKED BITS 
026546 053737 001174 001124 BIS STMP4 ,SGDDAT :"OR* WITH GUOD DATA FOR TYPEOUT 
026554 104010 EMT 10 
026556 005137 001250 COM CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 
026562 000240 66$: NOP 
sDRIVE SHCULD RETURN TO NEUTRAL 
sRELEASE THE DRIVE FROM PORT A 
026564 113760 001224 000010 MOVB — PORTA,RMCS2(RO)_ SELECT PORT 
026572 013737 001224 001240 MOV PORTA,PTNBR MOVE PORT abORESS TO page a TYPEOUT 
26600 012760 000013 000000 MOV #13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
026606 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR * INDICATOR 
026612 012737 000012 001122 MOV #RMDS ,SBDADR FORM THE ADDRESS OF ee FOR TYPEQUT 
026620 060037 001122 ADD R ADR ; HE 1/0 BASE ADDR 
026624 012737 011700 001124 MOV 'PGM'DPR'! DRY! VV. SGDDAT + velahemmameae CONSTANT 
026632 113760 001224 000010 MOVB PORTA, RMCS2(RO) : SELECT 
26640 016037 000012 001170 MOV RO) , STMP GET THE ORT Ve” STATUS REGISTER FROM PORT A. 
026646 042737 024001 001170 BIC #PIP!WRL'OM,STMP2 :CLEAR ARES 
026654 013737 001170 001164 MOV STMP2,.$TMPO sCOPY IT INTO "STMPO' 
026662 042737 100100 001164 BIC #ATA!VV,STMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
026670 113760 001226 000010 MOVB  PORTB, RMCS2(RO) : SELECT 
026676 016037 000012 001172 MOV $(RO) ; STMBS “GET THE DRIVE “STATUS | REGISTER FROM PORT B. 
026704 042737 024001 001172 BIC #PIP'WRL'OM,$TMP3 ZCLEAR ARES 
026712 013737 001172 001166 MOV STMPS, $TMP1 3; COPY IT’ INTO ‘STMP1‘ 
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026720 
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027152 
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027160 
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000004 


005737 
0014 

100002 
000137 


100100 
001164 


001164 


Mmron> 
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001124 


001172 


001124 


001300 


003062 


001166 
001166 


001254 
000000 
000000 
001126 
001126 
001126 


001126 


BIC MATA!VV,STMP1  ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
eS SHPO, STHP! is Hg STATUS REGISTER THE SAME FROM BOTH PORTS ? 
TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 70$ :BR IF 
EMT 46 
JMP 72$ sBYPASS THE REST OF THE CHECKS 
68S: MOV STMP2 ,SBDDAT 7SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTB,PTNBR SEIZING A IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORTB.RMCS2(RO) ;SELECT PORT B. 
TST $TMPO 3SEE_IF STATUS EQ 0 FROM PORT A. 
BEQ 69$ 7BR IF ZERO 
MOV PORTA, 4h oF : SEIZING PORT IF TEST oe DRIVE NOT IN NEUTRAL 
MOV $TMP3,$BDD 3"BAD DATA’ ge ERROR TYPE OUT 
MO PORTA, “RCS? CRO) 7SEL 


‘OVE ECT PORT A 
TST Ag MP1 TSEE IF STATUS EQ ZERO FROM PORT B. 


o$ :BR_IF NO 
69$: MOV #-1 ,RELERR 3SET Me ERROR’ INDICATOR 
mOV #11,RMCS1(RO) CLEAR THE DRIVE 
MOV #13,RMCS1(RO) RELEASE THE DRIVE 


EMT 
70$: MOV STMP2,$BDDAT § ;LOOK FOR BIT FAILURES WHEN RMDS READ 
MOV ‘ORTA.PTNBR : CHANGE PORT ER 
BIC HATA, $BDDAT :DON'T CHECK THE ATTN BIT 
CMP $GDDAT,$BDDAT ALL BITS OK 
BEQ 4 $ :BR IF OK OKon PORT A. 


71$: MOV $TMP3 ,SBDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 


MOV PORTB,PTNBR ‘CHANGE PORT NUMBE 
BIC HATA, $BDDAT SDON'T CHECK THE ATTN BIT 
CMP SGDDAT.$BDDAT :SEE IF READ OK FROM PORT B. 
BEQ 72$ :BR IF OK 
EMT 7 
72$: NOP 
1$: SCOPE :LOOP ? 
PITTTTTTTITTTTT TT TTT Titi tthe thie 
;STEST 22 SEIZE BY RMAS TEST 
‘TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
i (RMAS) SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 
zt : 
t* A, WRITE THE APPROPRIATE DRIVE BIT INTO RMAS; VERIFY THAT THE DRIVE 
se 1S SEIZED. 
t* B. ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT: VERIFY THAT THE 
* DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 
i OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 
> nec ite epee a aaa camer Re mamma ate 
ST 
TST KYBCTL ; PERF ORMING ONLY SINGLE TEST ? 
BEQ 2$ “BR IF N 
BPL 1$ *BR IF JUST ENTERED TEST 


JMP EXEC SRETURN & GET NEXT TEST NUMBER 


SEQ 0089 


! 
ee need 
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0271 012737 177777 001300 1$: MOV #-1,K zSET SINGLE TEST INDICATOR 
027174 01 027210 001106 2$: MOV atest oo St PADR SSETUP SCOPE LOOP ADDRESS 
027208 012737 027210 001110 none MOV ATEST22,$LPERR SETUP ERROR LOOP ADDRESS 
0°7210 112737 000022 001102 “ MOVB  =#22,$TSTNM sMOVE #22 TO TEST NUMBER 
£37216 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
vey 027222 012737 000012 001176 MOV #10. ,STIMES +;D0 10. ITERATIONS 
791 
sCLEAR ATTENTION BITS FOR BOTH PORTS 
027230 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
27236 005060 000012 CLR RMDS (RO) SSEIZE THE DRIVE 
027242 012760 000011 000000 MOV #11,RMCS1(RO) 3 ISSUE DRIVE CLEAR 
027250 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
027256 113760 001226 000010 MOVB erate RMCS2(RO) :SELECT PORT 48 
027264 005060 000012 CLR RMDS (RO) [SEIZE THE DRIVE THROUGH PORT 'B' 
027270 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
027276 012760 000013 000000 MOV #13.RMCS1(RO) RELEASE THE DRIVE 
:SELECT DRIVE OTHER THAN THAT BEING TESTED 
027304 113760 001230 000010 MOVB — PORTC,RMCS2(RO) ;SELECT DRIVE NOT BEING TESTED 
027312 013737 001224 001242 MOV PORTA,SEIZPT  :*SEIZED' PORT ADDRESS 
sWRITE THE DRIVE'S ATTENTION BIT 
027320 013760 001236 000016 MOV ASR1,RMAS(RO)  ;WRITE THE ATTENTION BIT OF THE DRIVE BEING TESTED 
027326 113760 001224 000010 MOVB _—swPORTA, RaCSZ(RO) >SELECT PORT 
27334 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
SVERIFY THAT EITHER PORT A OR PORT B HAS THE DRIVE 
027342 005760 000012 TST RMDS (RO) ;SEE THE REGISTER THROUGH PORT A ? 
027346 001014 BNE ‘BR IF YES 
027350 113760 001226 000010 MOVB  PORTB,RMCS2(RO) °;SELECT PORT B 
027386 013737 001226 001240 MOV PORTB.PTNBR haves PORT ADDRESS TO LOCATION FOR TYPEOUT 
27 005760 000012 TST RMDS (RO) SEE REGISTER THROUGH PORT B ? 
027370 001021 BNE 2$ <BR IF YES 
027372 104042 EMT 42 
027374 000137 031224 _ JMP sBYPASS REST OF TEST 
57400 113760 001226 000010 MOVB _—sC—PORTB, RMCS2(RO) >SELECT PORT B 
27406 013737 001226 001240 MOV PORTB,PTNBR ove PORT ADDRESS TO LOCATION FOR TYPEOUT 
027414 005760 000012 TST RMDS (RO) REGISTER SHOULD BE ZERO THROUGH PORT B 
027420 00100 BNE +6 IF STATUS REG IS NOT ZERO 
027422 000137 030324 JMP 3$ ‘STATUS REG IS ZERO 
027426 104043 EMT 43 
027450 OUUIS7 051224 JMiP 43 sBYPASS REST CF TEST 
sPORT B HAS THE DRIVE. VERIFY THAT PORT A HAS PORT REQUEST SET 
027434 2$: 
027434 005037 001250 CLR CKERR ZCLEAR THE "CHECK ERROR’ INDICATOR 
027440 016037 000012 001126 MOV RDS (RO) . SBDDAT °:GET CONTENTS 
027446 012737 000012 001122 MOV aRHDs :FORM REGISTER ADDRESS OF ERROR MESSAGE 
027454 060037 001122 ADD oss acR ;ADD RH/RM BASE ADDRESS 
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027460 012737 011700 001124 MOV TO ee mee heel ; WHAT westsres SHOULD BE 
027466 013737 001126 001164 MOV SBDDAT ,STMPO iMOVE REGISTER CONTENTS TO ‘STMPO* 
027474 042737 106077 001164 BIC Fr cri 760, STMPO ;SAVE SPECIFIED BITS 
027502 023737 001124 001164 CMP SGDDAT ,STMPO ; COMPA RE THE BITS 
027510 001414 BEQ 64$ F OK 
027512 013737 001126 001174 MOV SBDDAT.STMP4 :COPY "BAD DATA‘ 
027520 042737 071700 001174 BIC #71700,$TMP4 ZCLEAR THE MASKED BITS 
O623¢0 £3 14 001174 001124 eis $TMP4 , SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
027536 005137 001250 COM CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 
027542 000240 648: NOP 
027544 013737 001226 001242 MOV PORTB,SEIZPT sADDRESS FOR ERROR MESSAGE 
027552 013737 001224 001244 MOV PORTA,OPPRT 3SAME AS ABOVE 
;RELEASE THE DRIVE FROM PORT B 
027560 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
027566 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
027574 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
;VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 
027602 005037 001254 ; CLR RELERR ;CLEAR "RELEASE ERROR’ fom Can 
027606 012737 111700 001124 MOV MATA!MOL!PGM!DPR!DRY!VV,SGDDAT ;COMPAR CONSTANT 
027614 012737 000012 001122 MOV #RMDS,SBDADR ;REGISTER ADDRESS INC REMENT 
027622 060037 001122 ADD RO,$BDADR sREGISTER BASE ADDRESS FOR TYPEOUT 
027626 113760 001224 000010 MOVB PORTA,RMCS2(RO) ";SELECT PORT A 
027634 013737 001224 001240 MOV PORTA,PTNBR :MOVE _P PORT ADDRESS TO LOCATION FOR  pecmmea 
027642 016037 000012 001164 MOV RMDS(RO),$TMPO ;READ STATUS REGISTER FROM PORT A 
027650 113760 001226 000010 MOVB PORTB,RMCS2(RO) * By PORT B 
027656 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO yoo ey FOR TYPEOUT 
027664 016037 000012 001126 MOV RMDS (RO) , SBDDAT genie STATUS FROM PORT B 
027672 001404 BEQ 66$ ;BR IF STATUS FROM PORT B ZERO 
027674 005737 001164 TST $TMPO 31S STATUS FROM PORT A ZERO ? 
027700 001401 BEQ 66$ 3BR IF ZERO 
027702 104044 EMT 


4a 
027704 013737 001164 001126 66S: MOV $TMPO ,SBDDAT :CHECK STATUS FROM PORT 
027712 013737 001224 001240 MOV PORTA, PTNBR [CHANGE PORT ADDRESS FOR TYPEOUT 
027720 023737 001124 001126 CMP ethene : COMPARE, WITH CONSTANT 


027726 001401 , BEQ 
027730 104027 ; EMT e7 
027732 000240 67$: NOP 
sRELEASE THE DRIVE FROM PORT A 
027734 113760 001224 000010 MOVB PORTA, parse (ae? sSELECT PORT A 
027742 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION — TYPEOUT 
027750 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
027756 005037 001254 CLR RELERR 3CLEAR THE ‘RELEASE ERROR * INDICATOR 
027762 012737 000012 001122 MOV #RMDS , SBDADR FORM, THE ADDRESS OF a FOR TYPEOUT 
027770 060037 001122 ADD BADR ;ADD_THE 1/0 BASE ADDRESS 
027774 012737 011700 001124 MOV #MOL'PGM'!DPR!DRY!VV, gg ele CONSTANT 
030002 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT 
030010 016037 000012 001170 MOV RMDS(RO),$TMP2 GET THE PORIVE “STATUS REGISTER FROM PORT A. 
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O30016 042737 024001 001170 BIC #PIP!WRL!OM,$TMP2 :CLEAR DONT CARES 
0 ¢ 13737 0011 : 001164 MOV $TMP2,$TMPO 3COPY IT INTO ° ‘ 
0300 2 042737 10019 001164 BIC HATA'VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
0 113760 0012 $ 00010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
030046 0160 0001 00117¢ MOV RMDS (RO) , TMP “GET THE DRIVE STATUS REGISTER FROM PORT B. 
030054 042737 024001 00117 BIC #PIP!WRLIOM,STMP sCLEAR DONT CARES 
0530062 013737 001172 001166 MOV STMP3,$TMP1 :COPY IT INTO '$TMP1 
03007 042737 100100 001166 BIC WATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
030076 023737 001164 001166 CMP $TMPO,STMP1 ‘I$ THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
030104 001006 BNE 68$ [BR IF NOT 
0530106 005737 001164 TST $TMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 
030112 001045 BNE 0$ :BR IF NOT 
030114 1O4046 EMT 
030116 000137 030316 JMP 72$ sBYPASS THE REST OF THE CHECKS 
030122 013737 001170 001126 68$: MOV STMP2,$BDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
030130 013737 001226 001240 MOV PORTB,PTNBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
030136 113760 001226 000010 MO PORTB.RMCS2(RO) :SELECT PORT 8. 
030144 005737 001164 TST $TMPO “SEE IF STATUS EQ 0 FROM PORT A. 
030150 001414 BEQ 69$ 7BR IF ZER 
030752 013737 001224 001240 MOV PORTA, PTNBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
03°160 013737 001172 001126 MOV STMP3,S8DDAT ;"BAD DATA’ FOR ERROR TYPE OUT 
030166 113760 001226 000010 MOVB - PORTA.RMCS2(RO) :SELECT PORT A. 
030174 005737 001166 TST $TMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 

30200 00101 BNE ‘BR IF NOT 
030202 012737 177777 001254 69$: MOV #~1,RELERR ‘SET "RELEASE ERROR’ INDICATOR 
030210 012760 000011 000000 MOV #11.RMCS1(RO) CLEAR THE DRIV 
030216 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
030224 104026 EMT 6 
030226 013737 001170 001126 70$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
030234 013737 001224 001240 MOV PORTA. PTNBR CHANGE P R 
030242 042737 100000 001126 BIC #ATA, $BDDAT ‘DON'T “HECK THE ATTN BIT 
030250 023737 001124 001126 CMP SGDDAT,$BDDAT ALL B1iS OK ? 
030256 001401 BEQ 71$ [BR IF OK FROM PORT A. 

30260 104007 EMT ? 
030262 013737 001172 001126 71$: MOV STMP3,$BDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
030270 013737 001226 001240 MOV PORTB,PTNBR * CHANGE PORT NUMBER 
030276 042737 100000 001126 BIC #ATA, $BDDAT [DON'T CHECK THE ATTN BIT 
030304 023737 001124 001126 CMP SGDDAT. SBDDAT 7SEE IF READ OK FROM PORT B. 
030312 001401 BEQ 72$ BR IF OK 
030314 104007 EMT 7 
030316 000240 72$: NOP 
030320 000137 031224 JMP 4$ 

:THE DRIVE IS SEIZED BY PORT A. VERIFY THAT PORT B HAS PORT REQUEST SET 

030324 3S: 
030324 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SFLECT PORT A 
030332 013737 001224 001240 MOV PORTA.PTNBR ;MOVE “ORT ADDRESS TO LOCATION FOR TYPEOUT 
03340 005037 601250 2 CLR CKERR :CEAR THE "CHECK ERROR’ INDICATOR 
030344 016037 000012 001126 MOV RMDS(RO),$BDDAT °;GET CONTENTS OF RMD 
030352 012737 000012 001122 MOV #RMDS,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
030360 060037 00112 ADD RO, SBDADR ADD RH/RM BASE ADDR 
030364 oie 7 011700 001124 MOV #MOL'PGM'DPR'DRY'VV,$GDDAT ;WHAT REGISTER SHOULD BE 
030372 013737 001126 001764 MOV S$BDDAT :MOVE REGISTER CONTENTS TO *STMPO' 
030400 042737 106077 001164 BIC #°C71700,$TMPO :SAVE SPECIFIED BITS 
030406 023737 001124 001164 CMP $GDDAT, ST HPO “COMPARE THE BITS 
030414 601414 BEQ 73$ : 
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030616 013737 001126 001174 MOV SBDDAT,$TMP4 =; COPY ‘BAD DATA’ 
030424 0427 7 071700 001174 BIC #71700,$TMP4 § :CLEAR THE MASKED BITS 
030432 053737 001174 001124 Bl STMPS, ,SGDDAT :°OR* WITH GOOD DATA FOR TYPEOUT 
030442 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
030446 000240 73$: NOP 
030450 013737 001224 001242 MOV PORTA, SEIZPT s ADDRESS FOR ERROR MESSAGE 
030456 013737 001c26 001244 MOV PORTB,OPPRT SSAME AS ABOVE 
sRELEASE THE DRIVE FROM PORT A 
30464 113760 001224 000010 MOVB = PORTA, RMCS2 (RO) “SELECT PORT A 
030472 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
030500 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT 
:VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 
30506 005037 001254 CLR RELERR ;CLEAR "RELEASE ERROR* INCICATOR 
030512 012737 111700 001124 MOV HATA'MOL!PGM!DPR'DRY!VV,$GDDAT ;COMPARISCN CONSTANT 
030520 012737 000012 001122 MOV #RMDS , SBDADR :REGISTER ADDRESS INCREMENT 
039526 060037 001122 ADD RO, $BDADR SREGISTER BASE ADDRESS FOR TYPEOUT 
030532 113760 001226 00001 MOVB  PORTB,RMCS2(RO) ";SELECT PORT B 
030540 013737 001226 001240 MOV PORTB,PT “MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
030546 016037 000012 001164 MOV RMDS(RO),$TMPO ;READ STATUS REGISTER FROM PORT B 
030554 113760 001224 000010 MOVB —~ PORTA, RMCS2(RO) vi sbEST PT 
030562 013737 001224 001240 MOV PORTA.PTNBR ;MO PORT ADDRESS TO LOCATION FOR TYPEOUT 
030570 016037 000012 001126 MOV RMDS (RO) MSEDDAT DRIVE STATUS FROM PORT 
030576 001404 BEQ 75$ IF STATUS FROM PORT A ZERO 
030600 005737 001164 TST $TMPO ‘1S STATUS FROM PORT B ZERO ? 
030604 001401 BEQ 75$ [BR IF ZERO 
030606 104044 EMT 44 
030610 013737 001164 001126 75$: MOV STMPO,SBDDAT CHECK STATUS FROM PORT 8 
030616 013737 001226 001240 MOV PORTB,PTNBR MANGE PORT ADDRESS FOR TYPEOUT 
030624 023737 001124 001126 CMP SGDDAT, SBDDAT COMPARE WITH CONSTANT 
030632 001401 BEQ 76$ [BR IF OK 
30634 104027 EMT 
030636 000240 76$: NOP 
;RELEASE THE DRIVE FROM PORT B 
030640 113760 001226 000010 MOVB = PORTB,RMCS2(RO) ;SELECT PORT B 
030646 013737 001226 21240 MOV PORTB, sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
030654 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
030662 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR * INDICATOR 
030666 012737 900012 001122 MOV #RMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
030674 060037 00112 ADD R A :AD THE 1/0 BASE ADDRESS 
030700 012737 (11700 001124 MOV L!PGM'!DPR!DRY! W-SCDDAT : COMPARISON CONSTANT 
030706 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A 
030714 01 037 000012 001170 MOV DS (RO) ¢ MP2 :GET THE DRIVE “STATUS REGISTER FROM PORT A. 
030722 130 924001 01170 BIC PIP URL OM, STMP2 AR DONT CARES 
0307 01 737, 001170 001164 MOV T sCOPY IT INTO "STMPO' 
307 3737 100100 001164 BIC WATA *CLEAR PORT DEPENDENT BITS FROM THE COPY 
030744 113760 001226 000010 MOVB Fonte nAcso(Ro) :abteCr T B. 
030752 016037 000012 001172 MCV RMDS(RO).$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 





SEQ 0093 


ene 


792 
804 
805 
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oOo 

ek ee eek ek me ed ed ed ed ed = prepress 
soacescseccceeeee 

nm SLSERKSNSanwowes 


ee ee ee ed eed ed ed od od od 
SEVRSESNSNEERS 


CooooO 
WWW 
nm 
==307N 


So 
Ww 
=—— 
Mmron— 
Sooonws 


031226 


031242 


WG 


NENONNNOWw 


000004 


005737 
06 
10000 


0014 


0001 
0127 


3 
3 


NN 


001164 


0312 é 
001170 

001226 
001226 
001164 


001166 
irre 
000011 

000013 
001170 
001124 
001172 


001124 


001300 


on 


001254 
000000 
000000 


001126 


001300 


77$: 


78$: 


79$: 


80$: 


81$: 
4$: 


BIC 


SCOPE 


#PIP:WRL:OM,STMPS 


STMP3,STMP1 
ella STMP1 


0,$TMP1 


81$ 
STMP2 , SBDDAT 
PORTB,PTNBR 
PORTS ,RMCS2(RO) 
STMPO 

78$ 
PORTA,PTNBR 
$TMP3,$BDDAT 
PORTA,RMCS2(RO) ; 
STMP1 


79$ 
#-1,RELERR 

#1 *RNCS1 (RO) 

#13,RMCS1(RO) 


STMP2, SBDDAT 
PORTA,PTNBR 
HATA, $BDDAT 
SGDDAT , SBDDAT 
80$ 


$TMP3, SEDDAT 
PORTB,PTNB 

#ATA, $BD DAT 
SGDDAT, »SBDDAT 


sCLEAR DONT CARES 
sCOPY IT INTO ‘$TMP1° 


[CLEAR PORT DEPENDENT BITS FROM THE COPY 


iS ie STATUS REGISTER THE SAME FROM BOTH PORTS ? 
:REGISTERS ARE THE SAME: ARE THEY ZERO ? 
2BR IF NOT 


ry ge THE REST OF THE CHECKS 


7SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
7SEI ta at IF TEST SHOWS DRIVE NOT IN NEUTRAL 


3 SELECT 


T 6B. 
SEE IF STATUS EQ 0 FROM PORT A. 


3BR IF Z 
;SE 


; ‘BAD PATA. x ERROR TYPE OUT 
eee 


BR IF 

3SET he a we INDICATOR 
ZCLEAR THE DRIVE 

;RELEASE THE *ORIVE 


IZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


E IF STATUS "EQ ZERO FROM PORT B. 


3 LOOK re St FAILURES WHEN RMDS READ 


; CHANGE P NUMBER 

;DON' T CHECK THE ATTN BIT 
;ALL BITS OK ? 

BR IF OK FROM PORT A. 


+ CHECK RMDS_FOR +H FAILURES = FROM PORT B. 
; CHAN RT NUMBER 


GE POR 
DON'T CHECK THE ATTN BIT 
[SEE IF READ OK FROM PORT B. 
7BR IF OK 


;LOOP ? 


LRRRRAARERAREAARERRRRAERERERERARAARRAERERERRRAARERAERRERRA ARREARS 


:STEST 23 


ms. seen e ee! 


mgh eo Se Se Se Se Be Be te 


1$: 


A. 


$123: 


SELECT A DRIVE NOT BEING TESTED AND WRIVE ALL BITS, E 
BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REG 


INHIBIT SEIZE BY RMAS TEST 


ZAVERIFY THAT THE DRIVE IS NOT ; WHEN A ‘ZERO’ IS WRITTEN INTO 
THE DRIVE'S ATTENTION BIT. 


Xx 
I 


VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 


4 a ate ONLY SINGLE TEST ? 


:BR IF JUST ere? TEST 
;RETURN & GET T TEST NUMBER 
3SET SINGLE TEST. INDICATOR 


C 
STER. 


EPT THE 
T 


REAR EEEEEEREEAEEEERAEAREEAEERAERERAEREKREREAEREREEEERE 
KYBCTL 

2s 

1$ 

EXEC 
#-1,KYBCTL 





— 





ae = RM80_DU 
T23 IBIT SEIZE BY RMAS TEST 


eyo eer 
SOonvlor 


WWNIWNWNAWNNWW 
on 


Sooooooooo 
ed ed ed ed ed ed ed 


031624 
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aE se Te 031¢6¢ 001106 2$: MOV ATEST23,$LPADR ;SETUP SCOPE LOOP ADDRESS 
0127 031264 001110 1EST23 MOV #TEST23,$LPERR ;SETUP ERROR LOOP ADDRESS 
112737 000023 001102 MOVB #23,.STSTNM MOVE #23 TO TEST NUMBER 
012706 001100 MOV MSTACK ,SP LOAD THE STACK POINTER 
012737 000012 001176 MOV #10. ,STIMES 33D0 10. ITERATIONS 
zCLEAR ATTENTION BITS FOR BOTH FORTS 
113760 001224 000010 MOVB PORTA, RMCS2(RO) sees PORT #A 
005060 000012 CLR RMDS (RO) 7SEIZE THE DRIVE 
012760 000011 000000 MOV #11 yg ib TISSUE DRIVE CLEAR 
012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
113760 001226 000010 MOVB PORTS, MRACSS (RO) 7SELECT PORT #8 
005060 000012 CLR RMDS (RO) 3SEIZE THE DRIVE THROUGH PORT ‘B* 
012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE st LEAR 
012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
113760 001230 000010 MOVB PORTC,RMCS2(RO) ;SELECT DRIVE NOT BEING TESTED 
gWRITE ALL ATTENTION BITS EXCEPT BIT FOR DRIVE UNDER TEST 
013737 001236 001164 MOV ASR1,STMPO : STORE ATTN BIT FOR PORT A 
005137 001164 COM STMP ;COMPLEMENT IT 
013760 001164 000016 MOV STMPO,RMAS(RO) WRITE THE ATTN REGISTER 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
005037 001254 CLR RELERR CLEAR THE ‘RELEASE ERROR ° INDICATOR 
012737 000012 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
060037 001122 ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
012737 011700 001124 MOV L: PGM: DPR: DRY! VV -SGDDAT bene CONSTANT 
113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
016037 000012 001170 MOV RMDS(RO),STMP2 ;GET THE DRIVE "STATUS REGISTER FROM PORT A. 
042737 024001 001170 BIC #PIP!WRL!OM, : ONT CARES 
013737 001170 001164 MOV STMP2,STM COPY IT INTO ‘*S$TMPO' 
042737 100100 001164 BIC MATALVV,S LEAR gt DS temaenel BITS FROM THE COPY 
113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT P 
016037 000012 001172 MOV S(RO), ET THE DRIVE “STATUS REGISTER FROM PORT B. 
of tel 024001 001172 BIC #PIP!WRL!OM, : ARES 
013737 001172 001166 MOV STMP3 STM sCOPY IT ire STMPT" 
042737 100100 001166 BIC #ATA!VV,STMP1  ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
sated 001164 001166 oe eon 1 31S ae REGISTER THE SAME FROM BOTH PORTS ? 
005737 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
001045 BNE 66$ BR IF NOT 
104046 EMT 46 
000137 031746 JMP 68$ BYPASS THE REST OF THE CHECKS 
013737 001170 001126 64$: MOV STMP2, one" ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
013737 001226 001240 MOV PORTB,P ZSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
113760 001226 000010 MOVB PORTB, “RACSS (RO) 3 SELECT 8. 
005737 001164 TST STMPO- sSEE IF sans EQ 0 FROM PORT A. 
001414 BEQ 65$ 3BR IF ZER 
013737 001224 001240 MOV PORTA, th sSEIZING Ay IF TEST eos DRIVE NOT IN NEUTRAL 
013737 001172 001126 MOV $TMP3,S$BDDA 3"BAD DATA’ = ERROR TYPE OUT 
113760 001224 000010 MOVB PORTA, “RCS? CRO) sSELECT PORT A 
005737 001166 TST STMP1 SEE IF STATUS EQ ZERO FROM PORT B. 


—— 
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031630 90101 BNE 66$ :BR IF NOT 
031632 012737 177777 001254 65$: MOV #1, RELERR [SET SRELEASE ERROR’ INDICATOR 
031640 012760 000011 000000 MOV qi RACE] CRO) [CLEAR THE DRIV 
031646 12 760 000013 000000 MOV #13.RMCS1<RO) RELEASE. THE DRIVE 
031656 013737 001170 001126 66$: MOV STMP2, SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
031664 013737 001224 001240 MOV PORTA,PTNBR i CHANGE PORT R 
031672 042737 100000 001126 BIC #ATA, $BpDat :DON' T CHECK THE ATTN BIT 
031700 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
031706 001401 BEQ 67$ ‘BR IF OK FROM PORT A 
031710 104007 EMT 7 
031712 013737 001172 001126 67$: MOV STMP3,SBDDAT 2 CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
031720 013737 001226 001240 MOV PORTB,PTNBR ; CHANGE PORT NUMBER 
031726 042737 100000 001126 BIC HATA, $BDDAT {DON'T CHECK THE ATTN BIT 
0317 023737 001124 001126 CMP SGDDAT ,,SBDDAT SEE Yd READ OK FROM PORT B. 
031742 001401 BEQ 68$ 'BR IF OK 
031744 104007 EMT ? 
031746 000240 68$: NOP 
03175C 000004 SCOPE ;LOOP ? 
See 
842 FERRARA AREA REAR ARAE REA ERAARRERRERRRERARRARERRERRRERRERER ARES 
ssTESt 24 SET PORT ‘A* REQUEST TEST 
j*VERIFY THAT WRITING A DRIVE REGISTER SETS ‘PORT REQUEST’ WHEN THE 
7* DRIVE IS SEIZED BY THE OTHER PORT. 
3* 
:* A. SEIZE THE DRIVE THROUGH PORT 'B" BY WRITING 0°S INTO RMDS. 
36 
:* B. WRITE 0°S INTO RMDS FROM PORT ‘A’; VERIFY THAT THE DRIVE IS STILL 
* SEIZED BY PORT ‘B’. 
3* 
:* CC. ISSUE A RELEASE COMMAND FROM PORT ‘B’ AND VERIFY THAT THE DRIVE 
72 SWITCHED TO PORT ‘A’. VERIFY THAT THE ATTENTION BIT IS SET FOR 
.* PORT ‘A* AND IS NOT SET FOR PORT ‘B’. 
3* 
:* D. ISSUE A RELEASE COMMAND THROUGH PORT *A* AND VERIFY THAT THE DRIVE 
* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
** 
*; RRA EEEEAEREREEEAERAREAREEEEEEREERAREEEREREEREEE 
031752 T5724: 
031752 005737 001300 TST KYBCTL : PERFORMING ONLY SINGLE TEST ? 
031756 001406 BEQ 2$ F NOT 
031760 100002 BPL 1$ TBR IF JUST ENTERED TEST 
031762 000137 00306 JMP EXEC SRETURN & GET NEXT TEST NUMBER 
31766 012737 177777 001300 1$: MOV #-1,k ‘SET SINGLE TEST INDICATOR 
031774 012737 032010 001106 2$: MOV Oregons qt ADR :SETUP SCOPE LOOP ADDRESS 
03200" 012737 032010 001110 aan MOV ATEST24.$LPERR SETUP ERROR LOOP ADDRESS 
032010 112737 000024 001102 MOVB #24,$TSTNM sMOVE #24 TO TEST NUMBER 
022016 012706 001100 MOV #STACK SP sLOAD THE STACK POINTER 
nai 032022 012737 000012 001176 MOV #10. ,STIMES +:D0 10. ITERATIONS 
872 


3CLEAR ATTENTION BITS FOR BOTH PORTS 
032030 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 





ao 
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T PORT ‘A’ REQUEST TEST 


036 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE 
01 69 0000117 900000 MOV #11,RMCS1(RO) ISSUE DRIVE 
012760 000013 000000 MOV #13.RMCS1(RO) [RELEASE THE DRIVE 
fe 113760 091226 000010 MOVE = PORTB,RMCS2(RO) :SELECT PORT 
005060 00001 CLR RMDS (RO) “SEIZE THE DRIVE ,jHRouGH PORT ‘B’ 
sei 0 012760 000011 000000 MOV #11,RMCS1(RO)  SISSUE DRIVE CLEAR 
2076 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT B 
032104 113760 001226 000010 MOVB = PORTB, RMCS2(RO) ;SELECT PORT B 
032112 013737 001226 001242 MOV PORTB,SEIZPT ; STORE SEIZING PORT’S ADDRESS 
032120 005060 000012 CLR RMDS(RO) sWRITE RMDS 
032124 013737 001224 001244 MOV PORTA, OPP :*OPPOSI TE’ PORT ADDRESS 
032132 113760 001224 000010 MOVB =~ PORTA, meee CRO) :SELECT P 
032140 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
zSET PORT REQUEST 
032146 005060 000012 CLR RMDS (RO) ;SET PORT REQUEST FOR PORT A 
:RELEASE THROUGH PORT B. DRIVE SHOULD SWITCH TO PORT A. 
;RELEASE THE DRIVE FROM PORT B 
032152 113760 001226 900010 MOVB = PORTB,RMCS2(RO) ;SELECT PORT B 
032160 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032166 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
:VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 
032174 005037 001254 CLR RELERR CLEAR "RELEASE ERROR’ INDICATOR 
032200 012737 111700 001124 MOV Meee OL !PGM!DPRIDRY! VV .SGDDAT s COMPAR ISON CONSTANT 
032206 012737 000012 001122 MOV #RMDS , SBDADR :REGISTER ADDRESS INCREMENT 
032214 060037 001122 ADD RO, $BDADR SREGISTER BASE ADDRESS FOR TYPEOUT 
032220 113760 001224 000010 MOVB = PORTA, RMCS2(RO) °:SELECT PORT 4 
032226 013737 001224 001240 MOV PORTA.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032234 016037 000012 001164 MOV RMDS(RO).$TMPO ;READ STATUS REGISTER FROM PORT 
032242 113760 001226 000010 MOVB = PORTB, RMCS2(RO) °:SELECT PORT 8 
032250 013737 001226 001240 MOV PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032256 016037 000012 001126 MOV RMDS(RO),S$BDDAT ;DRIVE STATUS FROM PORT 8 
032264 001404 BEQ 66$ IF STATUS FROM PORT B ZERO 
032266 005737 001164 TST $TMPO ?1S STATUS FROM PORT A ZERO ? 
032272 001401 BEQ 6$ :BR IF ZERO 
032274 104031 EMT 1 
032276 013737 001164 001126 66$: MOV STMPO,SBDDAT CHECK STATUS FROM PORT 
032 013737 001224 001240 MOV PORTA,PTNBR :CHANGE PORT te FOR TYPEOUT 
032312 023737 001124 001126 CMP SGDDAT .SBDDAT ; COMPARE WITH CONSTAN 
9 27 
0 PORTB, RACS2(RO) >SELECT PORT B 
0 POR 18, PTNBR move Ban Te cae TO LOCATION FOR R TYPEOUT 


CKERR i CLEAR "CHECK ERROR’ INDICAT 
RMDS(RO), SBDDAT GET CONTENTS OF RMDS 

#RMDS , SBDAD Tote REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDADR sADD RH/RM BASE ADDRESS 
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SET PORT ‘A’ REQUEST TEST 
0 30 7 001124 CLR SGDDAT ;WHAT REGISTER SHOULD BE 
0 13737 9011 $ 001164 MOV SBDDAT.STMPO § :MOVE REGISTER CONTENTS TO ‘STMPO’ 
0324 737 077777 001164 BIC #*CATA,STMPO SAVE SPECIFIED BITS 
032406 92 737 001124 001164 CMP SGDDAT,STMPO §; COMPARE THE BITS 
032414 001414 BEQ 6 :BR IF OK 
032416 91 737 001126 001174 MOV SBDDAT.STMPG =: COPY ' TA’ 
032424 737 (1 001174 BIC BATA, STMPS [CLEAR THE MASKED BITS 
05043 053737 001174 001124 Bis STMP4,$GDDAT  :°OR* WITH GOOD DATA FOR TYPEOUT 
03244 b0S459 001250 ¢ CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
032446 240 68$: NOP 
032490 11 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
032456 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032464 005037 001250 CLR CKERR sCLEAP THE "CHECK ERROR’ INDICATOR 
032470 016037 00001 901126 MOV RMDS(RO),SBDDAT ;:GET CONTENTS OF RMDS 
032476 012737 000012 00112 MOV WREDS.SBDADR ;FORM REGISTER ADDRESS OF ERROR MESS.\GE 
032504 060037 00112 ADD RO, SBDADR :ADD RH/RM BASE ADDRESS 
032510 Cie? 7 100000 001124 MOV WATA,SGDDAT ;WHAT REGISTER SHOULD BE 
032516 613737 001126 001164 MOV SBDDAT,$TMPO ° ;:MOVE REGISTER CONTENTS TO ‘STMPO' 
032524 042737 077777 001164 BIC #*CATA,STMPO ;SAVE SPECIFIED BITS 
32532 023737 001124 001164 CMP SGDDAT.STMPO — ; COMPARE THE 
032540 001414 PEO 70 [BR IF OK 
032542 013737 001126 001174 MOV SBDDAT.STMP4 COPY “BAD DATA’ 
032550 042737 16 001174 BIC MATA, STMP ‘CLEAR THE MASKED BITS 
032956 053737 001174 001124 BIS STMP4,$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
032566 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
032572 000240 70$: NOP 
;RELEASE THE DRIVE FROM PORT A 
032574 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
032602 013737 001224 001240 MOV PORTA.PTNBR ;:MOVE PORT ADDRESS TG LOCATION FOR TYPEOUT 
032610 012760 000013 MOV #13,RMCS1(RO) ; ISSUE RELEASE THROUGH PORT A 
ZVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

032616 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR * INDICATOR 
03262¢ 012737 1 001122 MOV #RADS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 

326 960037 1 ADD RO, SBDADR ¢ADD_ THE 1/0 BASE ADDRESS 
032634 O12? 7 011700 001124 MOV #MOL'PGM'DPR'DRY'VV,SGDDAT ;COMPARISON CONSTANT 
032642 113760 001224 10 MOVB #PORTA,RMCS2(RO) ;SELECT PORT A. 
032650 016037 000012 001170 RMDS(RO).S$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
052656 040737 024001 001170 BIC —- #P1P'WRL' OM, STMP CLEAR DONT CARES 
032664 013737 001170 001164 MOV STMP2,STMPO :COPY IT INTO *STMPO 
(32672 3 7 100100 001164 BIC BATA'VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
032700 113760 001226 00001 TB,RMCS2(RO) ;SELECT PORT 8. 
032706 016037 000012 00117 MOV RMDS(RO),$TMP3 <GET THE DRIVE STATUS REGISTER FROM PORT B. 
032714 Que? ? 02400 50117 BIC #PIP'WRL ‘OM, STMPS :CLEAR DONT CARES 
0327 13737 001172 001166 MOV STMPS,STMP1 7COPY IT INTO *STMP1° 
0507 0427 7 100100 001166 BIC BATA'VV.STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
032736 023737 001164 001166 C TMPO, STMP S1$ THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
032744 1006 BNE 72$ [BR IF NOT 
032746 005 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
032752 001045 BNE 74$ ‘BR IF NOT 
032754 104046 EMT 46 
032756 000137 033142 JMP 76$ :BYPASS THE REST OF THE CHECKS 





— 
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CZRNMAO RMBO DUAL PORT PT1 MACRO 
124 SET PORT °A’ REQUEST TEST 

0 768 1 73? 1170 001126 72%: MOV STMP2,SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

0327 13737 1206 124 MOV PORTS.PT [SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

032776 1137 1225 1 mOv8 PORTB -RACS2 (RO) [SELECT PORT 9. 

0 57 1164 1ST $s :SEE IF STATUS EQ 0 FROM PORT A. 

033010 001414 BEQ 33 :BR IF ZERO 

0 301 13737 901224 901240 MOV PORTA,PT SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

0 13737 001172 001126 MOV STMP3.SBDDAT  ;*BAD DATA’ FOR ERROR TYPE OUT 

0330 6 11 760 901226 000010 ORTA.RMCS2(RO) :SELECT PORT A 

0 005737 001166 TST $TMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 

033040 007 iF BNE 4S [BR IF NOT 

033042 1273? 177777 001254 73%: MOV #-1,RELERR TSET "RELEASE ERROA’ INDICATOR 

0 3050 12760 900911 900000 MOV 711 “RAS (RO? [CLEAR THE DRIVE 

033056 012760 00001 0000 MOV #13.RMCS1(RO) RELEASE THE DRIVE 

033064 104026 EMT 26 

033066 013737 001170 001126 748: MOV TMP2, SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 

033074 013737 001224 001240 MOV PORTA.PTNBR SCHANGE PORT NUMBER | 

033102 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK ? | 

053119 901401 BEd 258 ‘BR IF OK FROM PORT A. 

033114 013737 001172 001126 75$: MOV STNP3, SEDDAT :CHECK RMDS FOR BIT FAILURES = FROM PORT B. 

033122 013737 001226 001240 MOV R [CHANGE PORT R 

033130 023737 001124 001126 CMP conpat. SBDDAT [SEE IF READ OK FROM PORT B. 

033136 001401 BEQ 76$ ;BR IF OK 

033140 104007 EMT 

033142 000240 76$: NOP 

033144 000004 1$: SCOPE ;LOOP ? 

8 
893 FERAAAAAAAAAAA EAE AAAEAREAARERAAAARAAAAAAAAARERERRRERARERE AE AA ARES j 

;STEST 25 SET PORT "B' REQUEST TEST | 
< SVERIFY THAT WRITING A DRIVE REGISTER SETS "PORT REQUEST’ WHEN THE 
ie DRIVE 1S SEIZED BY THE OTHER PORT. 
3* 
te A, SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING 0°S INTO RMDS. 
;* 
:® B. WRITE 0°S INTO ADS FROM PORT "B'; VERIFY THAT THE DRIVE IS STILL 
ie SEIZED BY PORT 
te C. ISSUE A RELEASE COMMAND FROM PORT ‘A’ AND VERIFY THAT THE DRIVE 
it SWITCHED TO PORT 'B'. VERIFY THAT THE ATTENTION BIT IS SET FOR 
i PORT 'B’ AND IS NOT SET FOR PORT | 
t® D. ISSUE A RELEASE COMMAND THROUGH PORT 'B' AND VERIFY THAT THE DRIVE 
it RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
*® 
r ERA AEAAAAERARARARAEEEEAEAEAAAAAAEAAAAAAAAARERAEARAAAAAAAAEAAEARAEE 

033146 125: 

033146 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 

033152 001406 BEQ 2$ BR IF 

033154 1 2 BPL is iBR IF J st ENTERED TEST 

033156 0001 003062 JMP E TURN NEXT TEST NUMBER 

033162 012737 177777 001300 1$: MOV SET cineLee Test INDICATOR 

033170 012737 033204 001106 2$: MOV #1 ky CC PADR SSETUP SCOPE LOOP ADDRESS 

033176 012737 033204 001110 aaee MOV #TESTOS.S$LPERR :SETUP ERROR t OOP ADDRESS 

033204 112737 000025 001102 MOVB «#25, STS NM :MOVE #25 TO TEST NUMBER 
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j 5 SET PORT *B* REQUEST TEST 


2 012706 0011 MOV #STACK,SP :LOAD THE STACK POINTER 
ae 12737 000012 001176 MOV #10. ,STIMES +;D0 10. ITERATIONS 
895 
SCLEAR ATTENTION BITS FOR BOTH PORTS 
0 3224 113760 001224 000010 MOVE PORTA, RMCS2(RO) ;SELECT PORT #A 
0 32 2 005060 000012 CLR RMDS (RO) SSEIZE THE DRIVE 
033236 012760 000011 000000 MOV #11 ~RCS1 (RO) TISSUE DRIVE CLEAR 
033244 012760 000013 900000 MOV #13.RMCS1(RO) :RELEASE one DRIVE 
033252 113760 001226 00001 mOVB PORTO. RACS S2(RO) 3SELECT PORT #8 
033260 005060 00001 CLR RMDS (RO) * SEIZE THe’ DRIVE THROUGH PORT ‘B" 
033264 012760 000017 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
033272 012760 000013 000000 MOV #13.RMCS1(RO) RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT A 
033300 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
033306 013737 001224 001242 MOV PORTA.SEIZPT ;STORE SEIZING PORT’S ADDRESS 
033314 005060 000012 CLR RMDS(RO) :WRITE RMDS 
033320 013737 001226 001244 MOV PORTB,OPP : OPPOSITE’ PORT ADDRESS 
33326 113760 001226 000010 MOVB _—s—PORTB.. “RRCS2 (RO) >SELECT PORT B 
3334 013737 001226 001240 MOV PORTB.PTNBR nove PORT ADDRESS TO LOCATION FOR TYPEOUT 
:SET PORT REQUEST 
033342 005060 000012 CLR RMDS (RO) :SET PORT REQUEST FOR PORT B 
sRELEASE THROUGH PORT A. DRIVE SHOULD SWITCH TO PORT B. 
;RELEASE THE DRIVE FROM PORT A 
033346 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
033354 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
033362 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT A 
SVERIFY THAT DRIVE IS SEIZED BY PORT 8 WHEN RELEASED BY PORT A 
033370 005037 001254 CLR RELERR CLEAR "RELEASE ER ERROR’ INDICATOR 
033374 012737 111700 001124 MOV Roe ROL !PGM!DPRIDRY! VV v.$ OMPARI SON CONSTANT 
033402 012737 000012 001122 MOV #RMDS , “aL ADR :RESISTER ADDRESS iNCREME 
033410 060037 001122 ADD RO, SBDADR SREGISTER BASE ADDRESS. FOR TYPEOUT 
033414 113760 001226 000010 MOV3  PORTB,R’.S2‘RO) ";:SELECT PORT B 
033428 013737 001226 001240 MOV . PORTB.TNBR  ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
03 016037 12 001164 MOV RMDS (RO) ,STMPO READ STATUS REGISTER FROM PORT B 
033436 113760 001224 900010 MOVB PORTA, RMCS2(RO) “;SELCCT PORT A 
033444 013737 001224 001240 MOV PORTA.PTNBR ;MOV setae ADDRESS TO LOCATION FOR TYPEOUT. 
033452 016037 000012 001126 MOV RMDS(RO),$BDDAT ;DRIVE STATUS FR 
033460 001404 BEQ 66$ :BR IF STATUS FROM PORT a rer 0 ‘ 
033462 005737 001164 TST STMPO 71S STATUS FROM PORT B ZERO ? 
033466 001401 BEG 668 ‘BR IF ZERO 
033470 104031 EMT 1 
033472 013737 001164 001126 66$: MOV - $TMPO,SBDDAT  ;CHECK STATUS FROM PORT B 
033500 013737 001226 001240 MOV PORTB.PTNBR + CHANGE PORT ADDRESS FOR TYPEOUT 
033506 023737 001124 001126 CMP SGDDAT,$BDDAT :COMPARE WITH CONSTANT 
033514 001401 BEQ 67$ ‘BR IF OK 
033516 104027 EMT 27 


® 
ata RM80_ DUAL PORT PT1 ey V04.00 15-JAN-82 07:09:22 PAGE 9-64 SEQ 0101 | C. 
T25 SET PORT "B’ REQUEST TEST T 
033520 000240 678: NOP 
0335 113760 1224 000010 MOVB PORTA, ped «Saeed ;SELECT PORT A | 
0335 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
0335 Fak 0012 CLR CKERR 3CL or. THE ‘CHECK J INDICATOR 
033542 016037 000012 001126 MOV RMDS(RO), ae a ;GET CONTEN rs 0 
033550 012737 000012 001122 MOV #RMDS , SBDAD FORM R REGISTER Anpness OF ERROR MESSAGE 
033556 060037 001122 ADD RO, SBDADR zADD_RH/RM BASE ADDRESS 
033562 005037 001124 CLR SGDDAT 3 WHAT REGISTER SHOULD BE 
033566 013757 001126 001164 MOV SBDDAT ,STMPO :MOVE REGISTER CONTENTS TO *STMPO* | 
033574 042737 077777 001164 BIC W*CATA.STMPO SAVE SPECIFIED BITS | 
033602 025737 1124 001164 cMP SGDDAT.$TM"-0 ; COMPARE THE BITS 
033610 001414 BEQ 68 F OK 
033612 013737 001126 001174 MOV SBDDAT ,STMP4 :COPY *BAD DATA’ 
033620 042737 100000 001174 BIC HATA, STMPG ZCLEAR THE MASKED BITS 
033626 055737 001174 001124 BIS STMP4 , SGDDAT 7°OR* WITH GOOD DATA FOR TYPEOUT 
033634 104016 EMT 16 
033636 005137 001250 COM CKERR zSET THE REGISTER COMPARE ERROR INDICATOR | 
033642 000240 68$: NOP 
033644 113760 001226 000010 MOVB PORTB, pets Need ;SELECT PORT B 
033652 013737 001226 001240 MOV POR TB,PTNB Move P ORT ag TO LOCATION FOR TYPEOUT 
033660 005037 001250 CLR CKERR VCLEAR T HE ‘CHECK ERROR’ INDICATOR 
33664 016037 000012 001126 MOV RMDS(RO) ,S2DDAT °;:GET CONTENTS OF RMDS 
033672 012737 000012 001122 MOV eg eh SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
033700 060037 001122 ADD SBDADR zADD_RH/RM er 06 ESS 
033704 012737 100000 001124 MOV RATA SGDDAT ;WHAT REGISTER SHOULD BE 
033712 013737 001126 001164 MOV SBDDAT ,STMPO sMOVE REGISTER CONTENTS TO ‘STMPO’ 
033720 042737 077777 001164 BIC #°CATA.STMPO ;SAVE SPECIFIED BITS 
033726 0237357 001124 001164 CMP SGDDAT ,STMPO ; COMPAR E THE BITS 
033734 001414 BEQ $ OK 
33736 013737 001126 001174 MOV SBDDAT ,STMP4 ;COPY "BAD DATA’ 
033744 042737 100000 001174 BIC HATA, STMP4 ZCLEAR THE MASKED BITS 
SGT FETA 001174 001124 Eat STMP4 , SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
033762 005137 001250 COM CKERR zSET THE REGISTER COMPARE ERROR INDICATOR 
033766 000240 708: NOP 
sRELEASE THE DRIVE FROM PORT B 
033770 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
033776 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCASION FOR TYPEOUT 
034004 012760 000013 000000 MOV #13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT B 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
034012 005037 001254 CLR RELERR CLEAR THE ‘RELEASE ERROR * INDICATOR 
034016 012737 000012 001122 MOV ARMDS , SBDADR [FORM THE ADDRESS OF RMDS FOR TYPEOUT 
034024 060037 001122 ADD R DAD ADD THE 1/0 BASE ADDRESS 
034030 012737 011700 001124 MOV #MOL'PGM!DPR!DRY!VV,SGDDAT ) ieee CONSTANT 
034036 113760 001224 000010 MOVB PORTA, RAC Se (RD) iSELE CT PORT 
034044 016037 000012 001170 MOV RMDS(R T THE PORIVE’ STATUS REGISTER FROM PORT A. 
034052 ef tet 024001 001170 BIC RPIP: URL (OM. $TMPD CLEAR DONT CARES 
034060 013737 001170 001164 MOV ore oiare sCOPY IT INTO 'STMPO' 
034066 042737 100100 001164 BIC HATA!VV,STMPO CLEAR 1 bow A ieee BITS FROM THE COPY 
034074 113760 potas 000070 MOVB PORTB RACS2(RO) 3S SELECT 
034102 016037 000012 001172 MOV RMDS(R ' T THE "DRIVE STATUS REGISTER FROM PORT B. | 
034110 042737 024001 001172 BIC #PIP!WRL* OM SNPS AR DONT CARES 
034116 013737 001172 001166 MOV STMP3,STMP1 3 COPY i’ INTO *STMP1° | 
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SET PORT 'B' REQUEST TEST 
034124 042737 100100 001166 BIC - MAIA!VV,STMP1 —; CLEAR_PORT DEPENDENT BITS FROM THE COPY | 
034132 023757 001164 001166 CMP = $TMPO,STMP1 ©: 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? | 
034140 001006 BNE 72S :BR_IF NOT 
034142 005737 001164 TST — STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
034146 001045 BNE 748 :BR IF NOT 
034150 104046 EMT = 46 
034152 000137 034336 JMP 768 sBYPASS THE REST OF THE CHECKS 
034156 013737 001170 001126 72$: MoV = STMP2,$BDDAT SET _UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
034164 013737 001226 001240 MOY PORTA.PINBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
034172 113760 001226 000010 MOVE © PORTB,RMCS2(RO) ;SELECT PORT 8. 
034200 005737 001164 TST — STMPO :SEE IF STATUS EQ 0 FROM PORT A. 
034204 001414 BEQ 738 :BR IF ZERO | 
034206 013737 001224 001240 MOV PORTA,PTNBR «SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
034214 013737 001172 001126 MOV, $TMP3.SBDDAT "BAD DATA’ FOR ERROR TYPE OUT 
034222 113760 001224 000010 MOVE —-PORTA,RMCS2(RO) ;SELECT 
034230 005737 001166 TST —-$TMP1 SEE IF STATUS EQ ZERO FROM PORT B. 
034234 001012 BNE _74$ :BR_IF_NO 
034286 012737 177777 001256 738: MOV AFLRELERR SET ORELEASE ERROR" INDICATOR 
034244 012760 000011 000000 MOV -#11;RMCS1(RO) CLEAR THE DRIVE 
034252 012760 000013 000000 MOV FISCRMCST(RO) RELEASE THE DRIVE 
034260 104026 EMT 
034262 013737 001170 001126 748: MOV —«STMP2.$BDDAT =: LOOK FOR BIT FAILURES WHEN RMDS READ 
034270 013737 001224 001240 MOV PORTA-PTNBR, CHANGE PORT NUMBER 
034276 023737 001124 001126 CMP  $GDDAT,SBDDAT = ALL BITS Ok 
034304 001401 BEQ 75S BR IF OK PROM PORT A. 
034306 104007 EMT =? 
034310 013737 001172 001126 75$: MOV = $TMP3,SBDDAT =; CHECK_RMDS FOR BIT FAILURES ~ FROM PORT B. 
034316 013737 001226 001240 MOV PORTB;PTNBR CHANGE PORT NUMBER 
034324 023737 001124 001126 CMP $GDDAT,SBDDAT SEE IF READ OK FROM PORT B. 
034332 001401 BEQ = 76S 3BR IF OK 
034334 104007 EMT 
034336 000240 76$: NOP 
034340 000004 1$: SCOPE ;LOOP ? 

LRRARRRRAA ARERR ERERERRREREERERRRRREERERREEARRRERRERRERR RES 


i SVERIFY THAT A oth CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 


z* SEIZING PORT. 

8 A. SET EACH PORT 'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
zs ; 

j* B. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 

:* C. ISSUE A DRIVE CLEAR COMMAND. 

te 

S® D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE ATTENTION 
* BIT FOR PORT ‘A’ HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
:* "B' IS STILL SET. 
jieeeeneneenannnnnnnnaeeereneennenanenceneannnanannenanensansenss 

TST 


;STEST 26 TEST RESET ATTENTION ‘A* BY DRIVE CLEAR 


5737 001300 TST KYBCTL zPERFORMING ONLY SINGLE TEST ? 
406 BEQ 2s BR IF NOT 
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CZRNHA R RMBO DU. T PTI MACR 
TEST RESET ATTENTION ‘A’ BY DRIV 

034350 1 BPL 1$ BR IF Ip JUST ENT ENTERED TEST 
034352 000137 00 2 JMP 3R TEST NUMBER 
034356 012737 177777 001300 1$: MOV #-1, KYBCTL eer UOINGLE test INDICATOR 
034364 012737 034400 001106 2$: MOV #TEST26,$LPADR :SETUP SCOPE LOOP ADDRESS 
034372 012737 034400 001110 anes MOV ATEST26,$LPERR :SETUP ERROR LOOP ADDRESS 
034400 112737 000026 001102 MOVB  #26,$TSTNM sMOVE #26 TO TEST NUMBER 
Oess 012706 001100 MOV #STACK SP LOAD THE STACK POINTER 

ab 034412 012737 000012 001176 MOV #10. ,STIMES +;D0 10. ITERATIONS 

953 

sSET ATTENTION BITS FOR BOTH PORTS 
034420 113760 001224 000010 MOVB _—— PORTA, RMCS2(RO) SELECT PORT 64$ 
034426 005760 000012 66$: TST RMDS (RO) MAKE SURE DRIVE AVAILABLE 
034432 001775 BEQ 653 
034434 012760 177777 000014 MOV #-1,RMER1(RO)  ;FORCE ERRORS 
034442 005960 000014 CLR RMER1(R SCLEAR THE ERRORS 
034446 013760 001226 000010 MOV PORTB,RMCS2(RO) ;SELECT THE OTHER P 
034454 005760 000012 64$: TST RMDS (RO) WAIT FOR DRIVE TO Oe MEOUT 
034460 001775 BEQ 64$ “BR IF DRIVE HASN'T TIMED OUT 
034462 012760 177777 000014 MOV #-1,RMER1(RO) :FORCE ERRORS ON PORT 65$ 
034470 005060 000014 CLR RMER1 (RO) SCLEAR THE ER RORS ¥ 
034474 113760 001224 000010 MOVB —_— PORTA, RMCS2(RO) ;SELECT PORT ''64$'' AGAIN 
034502 005760 000012 65$: TST RMDS (RO) WAIT FOR DRIVE TO tT MEOUT 
034506 001775 BEQ 65$ TBR IF DRIVE HASN'T TIMED OUT 
sCONFIRM THAT BOTH ATTENTION BITS ARE SET 
034510 113760 001224 000010 MOVB _—s— PORTA, RMCS2 (RO) :SELECT PORT 
034516 013737 001224 001240 MOV PORTA.PTNBR MOVE P PORT ADDRESS TO LOCATION FOR TYPEOUT 
034524 005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
034530 016037 000012 001126 MOV RMDS(RO),$BDDAT ';GET CONTENTS OF RMDS 
034536 012737 000012 001122 MOV #RMDS, $80 BADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
034544 060037 001122 ADD RO, $BDA RH/RM BASE ADDRESS 
034550 012737 100000 001124 MOV HATA, SCDDAT WHAT REGISTER SHOULD BE 
034556 013737 001126 001164 MOV SBDDAT,$TMPO  ;:MOVE REGISTER CONTENTS TO "STMPO' 
034564 042737 077777 001164 BIC #*CATA.STMPO SAVE SPECIFIED BITS 
034572 023737 001124 001164 CMP SGDDAT.$TMPO :COMPARE THE BITS 
034600 001414 BEQ 67 
034602 013737 001126 001174 MOV SBDDAT, STMP4 = COPY "BAD DATA’ 
034610 042737 100000 001174 BIC HATA, STMP4 ‘CLEAR THE MASKED BITS 
037010 734A 001174 001124 ony STMP4, SGDDAT :'OR’ WITH GOOD DATA FOR TYPEOUT 
034626 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
034632 000240 67$: NOP 
634 005737 001250 TST CKERR :WAS ATTN BIT FOR PORT A SET ? 

034640 001402 BEQ +6 ‘BR IF IT WA 
034642 000137 036034 JMP_ i$ eee :BYPASS. ses! “OF TEST IF NOT 
054646 115/60 UUVId26 UUUUIU MOVs PORTS ,RMCS?E c(RU) ;SE 
034654 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT “ADDRESS TO LOCATION FOR TYPEOUT 
034662 005037 001250 CLR CKERR CLEAR THE "CHECK ERROR’ INDICATOR 
034666 016037 000012 001126 MOV RMDS(RO) , SBDDAT ONTENTS OF RMD 
034674 012737 000012 001122 MOV #RMDS,, SBDADR ZFORM. REGISTER ADDRESS OF ERROR MESSAGE 
034702 060037 001122 ADD RO, $BDADR RH/RM BASE ADDRESS 
034706 012737 100000 001124 MOV HATA, SGDDAT WHAT REGISTER 
034714 013737 001126 001164 





OULD BE 
MOV SBDDAT ,STMPO sMOVE REGISTER OCONTENTS TO *STMPO’ 


am 


! 
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126 TEST RESET ATTENTION ‘A’ BY DRIV 
034722 042737 077777 001164 BIC #*CATA,STMPO ;SAVE SPECIFIED B11S | 
034780 023737 001124 001164 CMP SGDDAT.$TMPO ° ;COMPARE THE BITS | 
034736 001414 BEQ 69 :BR 
034740 013737 001126 001174 MOV SBDDAT.STMP4 COPY “BAD DATA® 
034746 042737 100000 001174 BIC HATA, STMP4 “CLEAR THE MASKED BITS 
O73 FEEL 001174 001124 Bis $TMP4 , $GDDAT :OR' WITH GOOD DATA FuR TYPEOUT | 
034764 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
034770 000240 69$: NOP 
034772 005737 001250 TST CKERR ;WAS ATTN BIT FOR PORT B SET ? 
034776 001402 BEQ +6 “BR IF IT WA 
35000 000137 036034 JMP is “BYPASS REST OF TEST IF NOT 
sSEIZE THE DRIVE THROUGH PORT A 
35004 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
035012 013737 001224 001242 MOV PORTA, SEIZPT ST ORE SEIZING PORT" S ADDRESS 
035020 005060 000012 CLR RMDS (RO) WRITE RMDS 
035024 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
035032 013737 001226 001240 MOV PORTB,PTNBR sMOVE PO RT ADDRESS TO LOCATION FOR TYPEOUT 
035040 013737 001226 001244 MOV PORTB,OPPR : "OP PPOSITE” PORT ADDRESS 
035046 016037 000012 001126 MOV RMDS(RO) ,SBDDAT :SEE IF DRIVE SEIZED BY PORT A 
035054 010037 001122 MOV RO, [RH/RM BASE ADDRESS 
035060 062737 000012 001122 ADD #RMDS , SBDADR < CENERATE BAD REGISTER ADDRESS 
035066 005037 601124 CLR SGDDAT Tg ae SHOULD BE ZERO 
035072 023737 001124 001126 CMP S$GDDAT,$BDDAT 1S THE REGISTER ZERO 
035100 001403 BEQ 71$ <BR IF IT IS 
035102 104004 EMT 4 
035104 000137 036034 me JMP 1$ BYPASS REST OF THE SUBTEST 
035110 113760 001224 000010 MOVE —PORTA,RMCS2(RO) :SELECT PORT 
035116 013737 001224 001240 MOV PORTA, PTNBR MOVE P ORT abonese TO LOCATION FOR TYPEOUT 
035124 016037 000012 001126 MoV —_-RMDS(RO) SBDDAT :SEE IF "SEIZING PORT SEES CORRECT STATUS 
035132 042737 020001 001126 BIC #0M!PIP, $BDDAT LEAR DONT CARE BITS 
035140 012737 011700 001124 MOV #MOL!PGM'DPR!DRY! VV, SGDDAT Y ee STATUS 
035146 013737 001124 001166 MOV SGDDAT,$TMP1 ;USE GOOD DATA AS A 
035154 005137 001166 COM —s $TMP1 COMPLEMENT THE EXPECTED STATUS 
035160 013737 001126 001164 MOV SBDDAT.STMPO SAVE THE ACTUAL STA 
035166 043737 001166 001164 BIC $TMP1, $TMPO “CLEAR UNWANTED BIT gl 
035174 023737 001124 001164 CMP SGDDAT,STMPO ARE Pe EXPECTED STATUS BITS SET ? 
035202 001401 BEQ 72$ “BR IF THEY ARE 
035204 104005 EMT 5 
35206 000240 72$: NOP 
s ISSUE DRIVE CLEAR COMMAND TO PORT A 
035210 012760 000011 000000 MOV _—«s #11, RMCS1(RO)  ;DO A DRIVE CLEAR COMMAND 
VERIFY THAT ATTENTION BIT FOR PORT A CLEARED 
035216 005037 001250 CLR CKERR CLEAR THE "CHECK ERROR" INDICATOR 
035222 016037 000012 001126 MOV _—saRMDS(RO), $BDDAT °;GET CONTENTS OF 
35230 012737 000012 001122 MOV -#RMDS SBOADR =; FORM REGISTER ADDRESS OF ERROR MESSAGE 
035236 060037 001122 ADD RO, $BDADR ADD _RH/RM BASE ADDRESS 
035242 005037 001124 CLR $GDDAT QHAT REGISTER SHOULD BE 
035246 013737 001126 001164 MOV SBDDAT.STMPO :MGVE_REGISTER CONTENTS TO *STMPO' 
035254 042737 077777 001164 BIC H*CATA.SIMPO ;SAVE SPECIFIED BITS 
| 


a 
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TEST RESET ATTENTION ‘A’ BY DRIVE CLEAR 


035262 023737 001124 001164 CMP SGDDAT.STHPO sCOMPARE THE BITS 
035270 001414 BEQ 73$ 7BR IF OK 
033672 013737 001126 001174 MOV SBDDAT,$TMP4 § :COPY ‘BAD DATA’ 
035300 042737 100000 001174 BIC HATA, $TMPG *CLEAR THE MASKED BITS 
035306 053737 001174 001124 BIS $TMP4 , $GDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
035314 104047 EMT 47 
035316 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
035322 000240 73$: NOP 
sRELEASE THE DRIVE FROM PORT A 
035324 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
035332 013737 001224 001240 MOV PORTA,P R sMOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
035340 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT A 
sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
035346 005037 001254 CLR RELERR sCLEAR THE ‘RELEASE ERROR °* INDICATOR 
035352 012737 000012 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
035360 060037 001122 ADD RO,$BDADR 7A THE I/0 BASE ADDRESS 
035364 012737 011700 001124 MOV #MOL'PGM'DPR'IDRY'VV,$GDDAT ;COMPARISON CONSTANT 
035372 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A. 
035400 016037 000012 001170 MOV RMDS (RO) , STMP2 *GET THE DRIVE STATUS REGISTER FROM PORT A. 
035406 040737 024001 001170 BIC #PIP'WRL‘OM,STMP2 :CLEAR DONT CARES 
035414 013737 001170 001164 MOV $TMP2, $TMP sCOPY IT INTO ° ‘ 
035422 ef 16H 100100 001164 BIC MATA! VV,STMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
35430 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
354 016037 000012 001172 MOV RMDS(RO), 3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
035444 042737 024001 001172 BIC #PIP!WRL!'OM,STMP ;CLEAR DONT CARES 
035452 013737 001172 001166 MOV STMP3,S$TMP1 [COPY IT INTO ‘$TMP1° 
035460 042737 100100 001166 BIC #ATA!VV,STMP1 sCLEAR PORT DEPENDENT BITS FROM THE COPY 
35466 023737 001164 001166 CMP STMPO,$TMP1 ‘I$ THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
035474 001006 BNE 75$ :BR IF NOT 
035476 005737 001164 TST $TMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
035502 001045 BNE 77$ [BR IF NOT 
35504 104046 EMT 46 
035506 000137 035706 JMP 79$ sBYPASS THE REST OF THE CHECKS 
035512 013737 001170 001126 75$: MOV $TMP2, SBDDAT ;SET UP POSSIELE BAD DATA FOR ERROR 
035520 913737 001226 001240 MOV PORTB,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
035526 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT 8. 
035534 005737 001164 TST STMPO :SEE IF STATUS EQ 0 FROM PORT A. 
035540 001414 BEQ 76$ BR IF ZERO 
035542 013737 001224 001240 MOV PORTA, PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
035550 013737 001172 001126 MOV STMP3.$BDDAT _: BAD DATA’ FOR ERROR TYPE OUT 
035556 113760 001224 000010 MOVB PORTA.RMCS2(RO) :SELECT PORT A. 
035564 005737 001166 TST $TMP1 “SEE IF STATUS EQ ZERO FROM PORT B. 
035570 001012 BNE *BR IF NOT 
035572 012737 177777 001254 76$: MOV #-1,RELERR *SET "RELEASE ERROR’ INDICATOR 
035600 012760 000011 000000 MOV #11,RMCS1(RO) CLEAR THE DRIVE 
035606 012760 000013 000000 MOV #13,RMCS1(RO) :RELEASE THE DRIVE 
035616 43989 001170 001126 77$: MOV STMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
035624 013737 001224 001240 MOV PORTA, PTNBR ;CHANGE PORT ER 
035632 042737 100000 001126 BIC HATA, $BDDAT ?DON'T CHECK THE ATTN BIT 
035640 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK ? 
035646 001401 BEQ 78$ :BR IF OK FROM PORT A. 
035650 104007 EMT 7 
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126 TEST RESET ATTENTION ‘A’ BY DRIVE | 
035652 013737 001172 001126 78$: MOV $TMP3, SBDDAT : CHECK RMDS FOR BIT FAILURES = FROM PORT 6. 
035660 013737 001226 001240 MOV PORTB,PTNBR GE PORT fe 
035666 042737 100000 001126 BIC HATA, $BDDAT BON T CHECK THE ATIN BIT 
035674 023757 001124 001126 CMP SGDDAT, SBDDAT SEE IF READ OK FROM PORT B. 
035702 001401 BEQ 79$ BR IF OK 
035704 104007 EMT | 
035706 000240 79$: NOP | 
CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT 8) | 
035710 113760 001226 000010 MOVB =~ PORIB, RMCS2 (RO? SELECT PORT B 
035716 013737 001226 001240 MOV PORTB.PTNBR MovE P PORT ADDRESS TO LOCATION FOR TYPEOUT 
035724 005037 001250 CLR CKERR sCLEAR THE ‘CHECK ERROR’ INDICATOR 
035730 016037 000012 001126 MOV RMDS (RO), SBDDAT “GET CONTENTS OF RMDS 
035736 012737 000012 001122 MOV Hg te $BDA 3FO ORM go ADDRESS e ERROR MESSAGE 
035744 060037 001122 ADD DADR 3A RM BASE ADDRESS 
035750 012737 100000 001124 MOV nto SCDDAT WHAT peeist ER SHOULD BE 
035756 013737 001126 001164 MOV SBDDAT.STMPO " _-MOVE REGISTER CONTENTS TO *STMPO' 
033764 042737 077777 001164 BIC P°CATA.STMPO SAVE SPECIFIED BITS 
035772 023737 001124 001164 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
636000 001414 BEQ OK 
036002 013737 001126 001174 MOV SBDDAT.$TMP4  :COPY "BAD DATA’ 
036010 042737 100000 001174 BIC HATA, STMPG :CLEAR THE MASKED BITS 
036016 053737 001174 001124 BIS $TMP4, SGDDAT "OR" WITH GOOD DATA FOR TYPEOUT 
036024 104050 EMT 50 
036026 005137 001250 COM CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 
036032 000240 80$: NOP 
036034 000004 1$: SCOPE ;LOOP ? 
333 
973 FERRARA RREREREREEAE RRA RRARERARRARRAREAERAEARERARRARRRARER RES 
;STEST 27 TEST RESET ATTENTION ‘B* BY DRIVE CLEAR 
* SVERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
8 SEIZING PORT. 
i A. set EACH PORT'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
* . 
;* B. SEIZE THE DRIVE THROUGH PORT 'B" BY WRITING 0°S INTO RMDS. 
i ISSUE A DRIVE CLEAR COMMAND. 
8 D. peLeAse THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE ATTENTION 
be BIT FOR PORT 'B' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
i* "A’ IS STILL SET. 
° z RAKE EAAEEEAEREARARAEAEEREEAERERERAERERAEEREEEEEE 
036036 18127: 
036036 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
036042 001406 BEQ 2$ BR IF NOT 
036044 10000 BPL 1$ BR IF JUST ENTERED TEST 
036046 00013 003062 JMP EXEC “RETURN & GET NEXT TEST NUMBER | 
036052 012737 177777 001300 1$: MOV 4-1, KYBCTL SET SINGLE TEST INDICATOR | 
036060 012737 036074 001106 2S: MOV ATES 7,$LPADR SETUP SCOPE LOOP ADDRESS 
036066 012737 036074 001110 TeST27 MOV #TEST 7; SLPERR * SETUP ERROR LOOP ADDRESS 
| 











9 
— RM80 DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-70 SEQ 0107 
T2?7 TEST RESET ATTENTION "B’ BY DRIVE CLEAR 


036074 112737 900027 001102 MOVB  #27,$TSTNM ;MOVE #27 TO TEST NUMBER 
036102 127 A% MOV P LOAD THE STACK POINTER 
- 036106 012737 000012 001176 MOV #10. ,STIMES 5 D0 10. ITERATIONS 
975 
:SET ATTENTION BITS FOR BOTH PORTS 
036114 113760 001224 000010 MOVB _— PORTA, RMCS2(RO) : SELECT PORT 64$ 
036122 005760 000012 66$: TST RMDS (RO) MAKE SURE DRIVE AVAILABLE 
036126 001775 BEQ 6 
036130 012760 177777 000014 MOV #-1,RMER1(RO)  ;FORCE ERRORS 
036136 005060 000014 CLR RMER1 (RO) SCLEAR THE ERRORS 
036142 013760 001226 000010 MOV PORTB,RMCS2(RO) :SELECT THE OTHER PORT 
036150 005760 000012 64%: TST RMDS (RO) ‘WAIT FOR DRIVE TO TIMEOUT 
036154 001775 BEQ 64$ ‘BR IF DRIVE HASN'T TIMED OUT 
036156 012760 177777 000014 MOV #-1,RMER1(RO)  :FORCE ERRORS ON PORT 65 
036164 005060 000014 CLR 7(RO) CLEAR THE ERRO RS 
036170 113760 001224 000010 MOVB = PORTA, RMCS2(RO) :SELECT PORT '64$'° AGAIN 
036176 005760 000012 65$: TST RMDS (RO) :WAIT FOR DRIVE TO TeMEOUT 
036202 001775 BEQ 65$ [BR IF DRIVE HASN'T TIMED OUT 
: CONFIRM THAT BOTH ATTENTION BITS ARE SET 
036204 113760 001226 000010 MOVS PORT, RACS2(RO) “SELECT PORT B 
036212 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
036220 005037 001250 CLR CKERR sCLEAR THE ‘CHECK ERROR’ INDICATOR 
036224 016037 000012 001126 MOV RMDS(RO).SBDDAT °;:GET CONTENTS OF RMDS 
036232 012737 000012 001122 MOV #RMDS,$BDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
036240 060037 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
036244 012737 100000 001124 MOV HATA,S$GDDAT ;WHAT RECTSTER SHOULD BE 
036252 013737 001126 001164 MOV SBDDAT,$TMPO ' ;MOVE REGISTER CONTENTS TO ‘STMPO' 
036260 042737 077777 001164 BIC #°CATA.$TMPO ;SAVE SPECIFIED BITS 
036266 023737 001124 001164 CMP SGDDAT.$TMPO ° ;COMPARE THE BITS 
036274 001414 BEQ 6 ‘BR IF OK 
036276 013737 001126 001174 MOV SBDDAT.STMP4 COPY *BAD DATA’ 
036304 042737 100000 001174 BIC HATA, STM *CLEAR THE MASKED BITS 
036312 093737 001174 001124 BIS $TMP4,$GDDAT | :'°OR' WITH GOOD DATA FOR TYPEOUT 
036322 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
036326 000240 67$: NOP 
036330 005737 001250 TST CKERR :WAS ATTN BIT FOR PORT B SET ? 
036334 001402 BEQ +6 [BR IF IT WA 
036336 000137 037530 JMP is SBYPASS REST OF TEST IF NOT 
03634 113760 1 34 000010 MOVB _—s—~wPORTA, RMCS2 (RO) “SELECT PORT A 
036350 0137 1224 001240 MOV PORTA, PTNBR move> PORT ADDRESS TO LOCATION FOR TYPEOUT 
036356 005037 001250 CLR CKERR sCLEAR THE ‘CHECK ERROR’ INDICATOR 
3% 016037 000012 001126 MOV RMDS(RO) ,SBDDAT ":GET CONTENTS OF RMD 
036370 012737 12 001122 MOV #RADS SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
036376 060037 00112 ADD SBDADR H/RM BASE ADD RESS 
036402 012737 1 001124 MOV RATA SCOLAT sWHAT RECTSTER SHOULD BE 
036410 013737 001126 001164 MOV SEDDAT. STHPO sMOVE REGISTER CONTENTS TO ‘STMPO' 
036416 042737 077777 001164 BIC #CATA, STMP SAVE SPECIFIED BITS 
036404 23737 001124 001164 CMP SGDDAT.$TMPO ° ;COMPARE THE BITS 
036432 001414 BEQ 6 ‘BR IF OK 
036434 013737 001126 001174 MOV SBDDAT.$TMP4 § ;COPY "BAD DATA’ 
036442 042737 100000 001174 BIC HATA, STMPG *CLEAR THE MASKED BITS 
036450 053737 001174 001124 BIS STMP4,$GDDAT :'OR’® WITH GOOD DATA FOR TYPEOUT 





an 
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127 TEST RESET ATTENTION ‘B’ BY DRIVE 
036456 104010 EMT 10 
036460 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
036464 000240 69$: NOP 
036466 005737 001250 TST CKERR :WAS ATTN BIT FOR PORT A SET ? 
036472 001402 BEQ +6 $ 
036474 000137 037530 JMP i$ sBYPASS REST OF TEST IF NOT 
:SE1ZE THE DRIVE THROUGH PORT B 
036500 113760 001226 000010 MOVB _—«— PORTB, RMCS2(RO) -SELECT PORT B 
036506 013737 001226 001242 MOV PORTB.SEIZPT ;STORE SEIZING PORT'S ADDRESS 
036514 005060 00001 CLR RMD :WRITE RMDS 
036520 113760 001224 000010 MOVB _—s—~ PORTA, Pacs2 (00 *SELECT PORT 
036526 013737 001224 001240 MOV PORTA, PTNBR move P PORT ADDRESS TO LOCATION FOR TYPEOUT 
036534 013737 001224 001244 MOV PORTA, OPPRT : OPPOSITE’ PORT ADDRESS 
036542 016037 000012 001126 MOV PORTA PPE as 3 SEE IF DRIVE SEIZED BY PORT B 
036550 010037 001122 MOV RO, SBDADR ERH/RM | BASE AD 
036554 062737 000012 001122 ADD #RMDS,SBDADR — ;GENERATE BAD REGISTER ADDRESS 
036562 005037 001124 CLR $GDDAT SREGISTER SHOULD BE ZERO 
036566 023737 001124 001126 CMP $GDDAT,$BDDAT :1S THE REGISTER ZERO 
036574 001403 BEQ 71$ :BR IF IT IS 
036576 104004 EMT 4 
036600 000137 037530 _ JMP 1$ sBYPASS REST OF THE SUBTEST 
036604 113760 001226 000010 MOVB _—s—~wPORTB, RMCS2(RO) SELECT POR TB 
036612 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
036620 016037 000012 001126 MOV RMDS (RO) SEDDAT. SSEE IF SEIZING PORT SEES CORRECT STATUS 
036626 042737 020001 001126 BIC #OM!PIP, $BDDAT :CLEAR DONT CARE BITS 
036634 012737 011700 001124 MOV #MOL !P PGM: DPR!DRY ! VV. SGDDAT sEXPECTED STATUS 
036642 013737 001124 001166 MOV SGDDAT,$TMP1 ;USE GOOD DATA AS A MASK 
036650 005137 001166 COM $TMP1 SE ORPLEMENT THE EXPECTED STATUS 
036654 013737 001126 001164 MOV SBDDAT.STMPO §_:SAVE THE ACTUAL STA 
036662 043737 001166 001164 BIC STMP1,$TMPO [CLEAR UNWANTED B 1S 
036670 023737 001124 001164 CMP SGDDAT,$TMPO §_ :ARE THE EXPECTED STATUS BITS SET ? 
036676 001401 BEQ 72$ ‘BR IF THEY ARE 
036700 104005 EMT 
036702 000240 72$: NOP 
ZISSUE DRIVE CLEAR COMMAND TO PORT B 
036704 012760 000011 000000 MOV #11,.RMCS1(RO)  ;:DO A DRIVE CLEAR COMMAND 
:VERIFY THAT ATTENTION BIT FOR PORT B CLEARED 
036712 005037 001250 CLR CKERR :CLEAR THE * CHECK ERROR’ INDICATOR 
036716 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF 
036724 012737 000012 001122 MOV #RMDS , SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
036732 060037 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
036736 005037 001124 CLR SGDDAT ter REGISTER SHOULD B 
036742 013737 001126 001164 MOV SBDDAT, STMP *MOVE REGISTER CONTENTS TO *S$TMPO' 
036750 042737 077777 001164 BIC #°CATA.STMPO SAVE SPECIFIED BITS 
036756 023737 001124 001164 CMP SGDDAT ..$TMPO :COMPARE THE BITS 
036764 001414 BEQ 7 F OK 
036766 013737 001126 001174 MOV SBDDAT STMP4 ;COPY "BAD DATA‘ 
036774 042737 100000 001174 BIC HATA, $TMP4 ‘CLEAR THE MASKED BITS 
037002 053737 001174 001124 BIS onus $GDDAT  :*OR* WITH GOOD DATA FOR TYPEOUT 
037010 104047 EMT 47 


SEQ ove | 


am 
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Te7 TEST RESET ATTENTION ‘B’ BY DRIVE CLE 


Oerele 005137 001250 COM CKERR 
037016 000240 73$: NOP 

sRELEASE THE DRIVE FROM PORT B 
037020 113760 001226 000010 MOVB PORTB,RMCS2(RO) 
RTA 013737 001226 001240 MOV PORTB,PTNBR ; 
0370 012760 000015 000000 MOV #13,.RMCS1(RO) 


7SET THE REGISTER COMPARE ERROR INDICATOR 


;SELECT PORT 


8 
MOvE PORT ADDRESS TO LOCATION fe TYPEOUT 


ISSUE RELEASE THROUGH PORT 


:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


037042 005037 001254 CLR RELE ZCLEAR THE "RELEASE ERROR ° INDICATOR 
37046 012737 000012 001122 MOV pat RS BDADR FORM, THE ADDRESS OF RMDS FOR TYPEOUT 
037054 060037 001122 ADD RO, BDA ;ADD THE 1/0 BASE ADDRESS 
37060 012737 011700 001124 MOV #MOL !PGM!DPR!DRY! W/SGDDAT s COMPARISON CONSTANT 
37 113760 001224 000010 MOVB _—s PORTA RMCS2 (RO) :SELECT P 
037074 016037 000012 001170 MOV RMDS (RO) ».$ T THE DRIVE” STATUS REGISTER FROM PORT A. 
037102 042737 024001 001170 BIC #PIP!WRL ons ;CLEAR | DONT CARES 
037110 013737 001170 0011 MOV STMP2,$TMPO sCOPY IT INTO ° 
037116 942757 100100 001164 BIC WATA'VV,$TMPO = CLEAR PORT DEPENDENT BITS FROM THE COPY 
037124 113760 001226 000010 MOVB —— PORTB, RMCS2(RO) SELECT P OR 
037132 016037 000012 001172 MOV RMDS (RO) , $TMP T THE DRIVE STATUS REGISTER FROM PORT B. 
037140 042737 024001 001172 BIC #PIP'WRLIOM, ran DONT CARES 
037146 013737 001172 001166 V STMP3, ;COPY IT INTO ° 
037154 042737 100100 001166 BIC WATA!'VV,$TMP1 CLEAR PORT O EPENDENT BITS FROM THE COPY 
037162 023737 001164 001166 CMP $TMPO t1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
037170 001006 BNE 5$ [BR IF NO 
037172 005737 001164 TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
037176 001045 BNE 77$ [BR IF NOT 
37200 104046 EMT 46 
037202 000137 037402 JMP 79$ ;BYPASS THE REST OF THE CHECKS 
037206 013737 001170 001126 75$: MOV STMP2,$BDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
037214 013737 001226 001240 MOV PORTB.PTNBR _° : SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
037222 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT 8. 
37230 005737 001164 ; TST $TMPO [SEE IF STATUS EQ 0 FROM PORT A. 
037234 001414 BEQ 76$ <BR IF Z 
37236 013737 001224 001240 MOV PORTA, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
037244 013737 001172 001126 MOV $TMP3.$BDDAT _: BAD DATA’ 7FoR ERROR TYPE OUT 
037252 113760 001224 000010 MOVB = PORTA. RMCS2(RO) :SELECT PORT 
037260 005737 001166 TST STMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 
037264 001012 BNE 77$ “BR IF 
037266 o1273 177777 001254 76$: MOV #-1,RELERR ‘SET RELEASE ERROR INDICATOR 
037274 012760 000011 000000 MOV 411 *RACS1 CRO) *CLEAR THE DRIV 
037302 912760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
037312 e395 001170 001126 77$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
037320 013737 001224 001240 MOV PORTA.PTNBR ZCHANGE PORT 
037326 042737 100000 001126 BIC #ATA, $BDDAT [DON'T CHECK THE ATTN BIT 
37334 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS 
037342 001401 BEQ 78s [BR IF OK OKon PORT A. 
037346 by 3o9 001172 001126 78$: MOV STMP3,SBDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
037354 013737 001226 001240 MOV PORTB,.PTNBR ZCHANGE PORT R 
37362 042737 100000 001126 BIC #ATA, S$BDDAT ‘DON'T CHECK THE ATTN BIT 
037370 023737 001124 001126 CMP $GDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
037376 001401 BEQ 79$ ‘BR IF OK 
037400 104007 EMT 


SEQ 0109 


“am 
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: 7 TEST RESET ATTENTION ‘B’ BY DRIVE 
037402 000240 79$: NOP 
;CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT A) 













037404 113760 001224 000010 MOVB _— PORTA, RMCS2(RO) SELECT POR 
03741 013737 001 $8 001240 MOV PORTA,PTNBR sMOvE POR T" ADDRESS TO LOCATION 474 TYPEOUT 
03742 005037 001250 CLR CKERR VELEAR THE "CHECK ERROR’ INDICATOR 
037424 016037 000012 001126 MOV RMDS(RO) ,SBDDAT "GET CONTENTS OF RMDS 
037432 012737 000012 001122 MOV #RNDS SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
037440 960037 00112 ADD SBDADR RM BASE ADDRESS 
037444 Ole? 7 100000 001124 MOV Ota SGDDAT : WHAT Pecist ER SnOULD BE 
037452 013737 001126 001164 MOV SBDDAT,$TMPO  ;MOVE REGISTER CONTENTS TO ‘STMPO' 
0374 042737 077777 001164 BIC #*CATA, STMPO sSAVE SPECIFIED BITS 
037466 023737 001124 001164 CMP SGDDAT,STMPO © COMPARE THE BITS 
037474 001414 BEQ 80 
037476 013737 001126 001174 MOV SBDDAT, STMP4 {COPY "BAD DATA’ 
37504 042737 100000 001174 BIC HATA, STMPG : CLEAR THE MASKED BITS 
037316 FR TEL 001174 001124 ei STMPS, SGDDAT "OR" WITH GOOD DATA FOR TYPEOUT 
037522 005137 001250 C CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
037526 000240 80$: NOP 
7530 1$: SCOPE ;LOOP ? 
398 
996 FRRARRERERA RARER RARERRERERERARARERAARAREEERARRRERRRARERRERER ERD 
*STEST 30 RESET ATTENTION ‘A* BY GO TEST 
te 
:* VERIFY THAT THE ‘GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
3% SEIZING PORT. 
;* 
3* A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
3 ATTENTION BITS ARE SET. 
3* 
3* B. SEIZE THE DRIVE THROUGH PORT ‘A‘* BY WRITING 0°S 
72 INTO RMDS. 
3* 
se €. ISSUE A NOP COMMAND. 
3* 
3* D. nie, THE aah 3 THROUGH PORT ‘A‘*. VERIFY THAT THE 
* ATTENTION BIT FOR PORT ‘A’ IS RESET, AND THE 
i* ATTENTION BIT FOR PORT 'B' IS STIL SET. 
° 2 RAE AAEAAAEAEEAEERARAERAEEREREAARAARARAERRERE \ ERRAAAAAARAAEAREAEERE 
037532 78130: 
037532 005737 001300 TST KYBCTL ; PERFORMING GNLY SINGLE TEST ? 
037536 001406 BEQ 2$ 
037540 10000 BPL 1$ ‘BR IF MOST ENTERED TEST 
037542 000137 003062 JMP EXEC [RETURN & GET NEXT TEST NUMBER 
037546 012737 177777 001300 1$: MOV iSET SINGLE TEST INDICATOR 
037554 012737 037570 001106 28: MOV ATES sO. SLPADR SETUP SCOPE LOOP ADDRESS 
037962 012737 037570 001110 ae MOV #TEST30.$LPERR :SETUP SRROR LOOP ADDRESS 
037570 112737 000030 001102 MOVB «#30, STSTNM sMOVE #36 TO TEST NUMBER 
037576 016706 001100 MOV #STACK SP LOAD THE STACK POINTER 
037602 012737 000012 001176 MOV #10. STIMES +:D0 10. ITERATIONS 


am 
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T RESET ATTENTION *A* BY GO TEST 


:SET ATTENTION BITS FOR BOTH PORTS 


037610 113760 001224 000010 MOVB = PORTA, RMCS2(RO) SELECT PORT 64$ 
037618 905760 000012 66S: Ist RMDS (RO) MAKE SURE DRIVE AVAILABLE 
037624 912760 177777 000014 MOV #-1,RMER1(RO)  ;FORCE ERRORS 
037632 005060 000014 CLR SCLEAR THE ERRORS 
037636 013760 001226 000010 MOV PORTB,RMCS2(RO) ;SELECT THE OTHER PORT 
037644 905760 00001 64$: TST RMDS (RO) [WAIT FOR DRIVE TO TIMEOUT | 
037650 00177 BEQ 64 [BR IF DRIVE HASN'T TIMED OUT 
037652 012760 177777 000014 MOV #-1,RMER1(RO) :FORCE ERRORS ON PORT 65 
037660 903060 000014 CLR [CLEAR THE ERRORS x 
037664 113760 001224 000010 MOVB —— PORTA, RMCS2(RO) iSEL LECT PORT ''64$"" AGAIN 
037672 005760 000012 65$: ‘TST RMDS (RO) WAIT FOR DRIVE TO TIMEOUT 
037676 001775 BEQ 65$ [BR IF DRIVE HASN'T TIMED OUT 
CONFIRM THAT BOTH ATTENTION BITS ARE SET 
037700 113760 001224 000010 MOVB _— PORTA, RMCS2(RO) SELECT PORT 
37706 013737 001224 001240 MOV PORTA.PTNBR ;MOVE POR ADDRESS TO LOCATION FOR TYPEOUT 
037714 005037 001250 CLR CKERR Tak EAR aR Th E "CHESK ERROR’ INDICATOR 
037720 016037 900012 001126 MOV RMDS(RO),$BDDAT °;:GET CONTENTS oF RMDS 
037726 012737 000012 001122 MOV #RMDS,SBOADR ;FORM R REGISTER ADDRESS OF ERROR MESSAGE 
37734 060037 001122 ADD RO, $BDADR sADD RH/RM BASE ADDRESS 
037740 012737 100000 001124 MOV HATA,SGDDAT WHAT pects TER SHOULD BE 
037746 013737 001126 001164 MOV SBDDAT, $TMP sMOVE REGISTER CONTENTS TO ‘STMPO 
037754 042737 077777 001164 BIC W°CATA.STMPO SAVE SPECIFIED BITS 
037762 023737 001124 001164 CMP SCDDAT. *STMPO :COMPARE THE BITS 
037770 001414 BEQ 67 F OK 
037772 013737 001126 001174 MOV SBDDAT. STMP4 COPY "BAD DATA’ 
0000 042737 100000 001174 BIC A, STMP4 i CLEAR THE MASKED BITS 
0006 053737 001174 001124 BI4 SMPs. $GDDAT WITH GOOD DATA FOR TYPEOUT 
040014 104010 EMT 
040016 905137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
040022 000240 67$: NOP 
040024 005737 001250 TST CKERR :WAS ATTENTION SET FOR A?? | 
040030 001402 BEQ +6 
040032 000137 041224 JMP is ‘MO “BYPASS REST OF TEST 
040036 113760 001226 000010 MOVB = PORTB,RMCS2(RO) “SELECT 
040044 013737 001226 001240 MOV PORTB.PTNBR ;:MOVE PORT "ADDRESS TO LOCATION FOR TYPEOUT 
040052 005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
040056 016037 000012 001126 MOV RMDS(RO), SBDDAT “GET CONTENTS OF RMDS 
04 012737 000012 001122 MOV #RMDS,$BDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
040072 060037 001122 ADD RO, $BDADR sADD RH/RM BASE ADDRESS 
040076 012737 100000 001124 MOV WATA,$GDDAT ;WHAT REGISTER SHOULD B 
040104 013737 001126 001164 MOV $BD T -MOVE REGISTER CONTENTS TO "STMPO’ 
040112 042737 077777 001164 BIC #°CATA.STMPO SAVE SPECIF FIED BITS 
040120 023737 001124 001164 CMP SGDDAT,STMPO ° ;COMPARE T TS 
040126 001414 BEQ 69 F ox 
040130 013737 001126 001174 MOV SBDDAT $TMP4 «COPY "BAD DATA’ 
040136 042737 100000 001174 BIC A, STMP4 ‘CLEAR THE MASKED BITS 
040144 033737 001174 001124 BIS SIMPL SeDDAT :*OR* WITH GOOD DATA FOR TYPEOLT 
040154 bose3? 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
0160 900240 69$: NOP 
040162 005737 001250 TST CKERR :WAS ATTENTION SET FOR B?? 
040166 001402 BEQ +6 YES!! 
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T RESET ATTENTION ‘A* BY G 


040170 000137 041224 JMP 1$ zNO = BYPASS REST OF TEST 
;SEIZE THE DRIVE THROUGH PORT A 
040174 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
040202 013737 0012246 001242 MOV RTA, SEIZPT :SFORE SEIZING PORT’ $ ADDRESS 
040210 005060 000012 CLR RMBs ) ITE RMDS 
040214 113760 001 36 000010 MOVB = PORTB, RMCS2(RO) °:SELECT PORT B 
040222 013737 001226 001240 MOV PORTB.PTNBR 0 vies PORT ADDRESS TO LOCATION FOR TYPEOUT 
040230 013737 001226 001244 MOV PORTB,OP : OPPOSITE’ PORT ADD 
0236 016037 000012 001126 MOV RMDS (RO) , SBDDAT iSEE IF DRIVE SEIZED BY PORT A 
040244 010037 001122 MOV ,SBDADR H/RM BASE AD 
040250 062737 000012 001122 ADD #RMDS , SBDADR ‘GENERATE BAD REGISTER ADDRESS 
040256 003037 001124 CLR $GDDA *REGISTER SHOULD BE ZERO 
040262 023737 001124 001126 CMP SGDDAT,$BDDAT 1S THE REGISTER ZERO 
040270 001403 BEQ 71$ <BR IF IT IS 
040272 104004 EMT 4 
040074 000137 041224 a JMP 1$ ;BYPASS REST OF THE SUBTEST 
040300 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
0 013737 001224 001240 MOV PORTA,.PTNBR ;MOVE PORT oT ODRESS TO LOCATION FOR TYPEOUT 
040314 016037 000012 001126 MOV RMDS(RO),$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
040322 042737 020001 001126 BIC #OM!PIP, $BDDAT sCLEAR DONT CARE BITS 
0330 Oiee ss 011700 001124 MOV #MOL 'PGM' DP RIDRY VV, SGDDAT sEXPECTED STATUS 
0402%5 013737 001124 001166 MOV $GDDAT,$TMP1  ;USE GOOD DATA AS K 
0344 005137 001166 COM $TMP1 > COMP ORPLEMENT THE EXPECTED STATUS 
040350 013737 001126 001164 MOV SBDDAT.$STMPO SAVE THE ACTUAL STATUS 
040356 043737 001166 001164 BIC STMP1,$TMP ‘CLEAR UNWANTE 
0364 023737 001124 001164 CMP SGDDAT,$TMPO ARE THE EXPECTED STATUS BITS SET ? 
(40372 001401 BEQ 72$ ‘BR IF THEY ARE 
040374 104005 EMT 5 
040376 000240 72$: NOP 
z ISSUE NOP COMMAND TO PORT A 
040400 012760 000001 000000 MOV #1,RMCS1(RO) 
VERIFY THAT ATTENTION FOR PORT A CLEARED 
040406 005037 001250 CLR CKERR ZCLEAR THE "CHECK ERROR’ INDICATOR 
040412 016037 000012 001126 MOV RDS (RO) ,SBDDAT -GET CONTENTS OF 
040420 012737 900012 001122 MOV #RMDS,SBDADR ;: FORM R REGISTER ADDRESS OF ERROR MESSAGE 
040426 060037 00112 ADD RO, $BDADR “ADD RH/RM BASE A DDR ESS 
040432 005037 001124 CLR SGDDAT SWHAT REGISTER SHOULD BE 
040436 013737 001126 001164 MOV SBDDAT,$TMPO § :MOVE REGISTER CONTENTS TO "STMPO' 
0404644 042737 077777 001164 BIC W°CATA.$TAPO SAVE SPECIFIED D BITS 
040452 023737 001124 001164 CMP SGDDAT.$TMPO :COMPARE THE BITS 
040460 001414 BEQ 7 OK 
040462 013737 001126 001174 MOV SBDDAT $tmP4 _:COPY. "BAD DATA® 
940470 042737 100000 001174 BIC TA, STMP4 CLEAR THE MASKED BITS 
040476 053737 001174 001124 BIS SIMPa. $GDDAT  :'OR* WITH GOOD DATA FOR TYPEOUT 
040506 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
040512 000240 73$: NOP 


;RELEASE THE DRIVE FROM PORT A 
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RESET ATTENTION °A* BY GO T 


040514 i i 001224 900019 MOVB  PORTA,RMCS2(RO) ;SELECT PO 
0405 0137 001224 001240 MOV PORTA,PTNBR ;MOV vE PORT ADORESS TO peg lhy, TYPEOUT 
040530 012760 000013 000000 MOV #13,RMCS1(RO) ; ISSUE RELEASE THROUGH PORT 
sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
040536 005037 001254 CLR RELERR SCLEAR THE "RELEASE ERROR * INDICATOR 
040542 oie r ee 600038 001122 MOV #RMDS , SBDADR 3FORM THE ADDRESS OF RMDS FOR TYPEOUT 
040550 060037 00112 ADD RO, $BDADR ;ADD THE 1/0 BASE ADDRESS 
040554 012737 011700 001124 MOV #MOL | PGM'DPR!DRY! wv. “$6D0AT 1! COMPARISON CONSTANT 
040562 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT 
040570 016037 000012 001170 RMDS (RO) , STMP2 “GET THE DRIVE” STATUS REGISTER FROM PORT A. 
040576 042737 24001 001170 BIC #PIP'WRL'OM,S$T LEAR DONT CARES 
0604 013737 001170 001164 MOV STM? STRPO 7 COPY ir INT 0° 
040612 042737 100100 001164 BIC WATALVV CLEAR PORT DEPENDENT BITS FROM THE COPY 
040620 113760 001226 000010 MOVB = PORTB VMaeeocRO) SSELECT PORT 8. 
0406¢6 016037 000012 001172 MOV S(RO).$ ,STMPS “GET THE "DRIVE STATUS REGISTER FROM PORT B. 
040634 042737 024001 001172 BIC #PIP'WRL! on STMPS EAR DONT CARES 
0642 013737 001172 001166 MOV STMP3,STMP1 > COPY IT’ INTO" ‘ 
040650 042727 100100 001166 BIC WATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
040656 023737 001164 001166 CMP STMPO,STMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
0664 001006 BNE 75$ F NOT 
040666 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
040672 001045 BNE 77$ :BR IF NOT 
040674 104046 EMT 46 
040676 000137 041076 JMP 79$ :BYPASS THE REST OF THE CHECKS 
040702 013737 001170 001126 75$: MOV $TMP2,$BDDAT 3SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
040710 013737 001226 001240 MOV PORTB,PTNBR se Erne oat IF TEST SHOWS DRIVE NOT IN NEUTRAL 
040716 113760 001226 000010 MOVB  PORTB.RMCS2(RO) : SELECT 
040724 005737 164 TST $TMPO :SEE IF STATUS: EQ 0 FROM PORT A. 
040730 001414 BEQ 76$ ‘BR IF ZERO, 
040732 013737 001224 001240 MOV PORTA,PTNBR * SEIZING T IF TEST SHOWS DRIVE NOT IN NEUTRAL 
040740 013737 001172 001126 MOV STMP3,$BDDAT ; "BAD DATA’ Fs ERROR TYPE OUT 
040746 113760 001224 000010 MOVB = PORTA. RMCS2(RO) :SELECT PORT A. 
040754 005737 %91166 TST STMP1 SEE IF STATUS EQ ZERO FROM PORT B. 
040760 001012 BNE 77$ ‘BR IF NOT 
040762 012737 177777 001254 76$: MOV #-1,RELERR SET "RELEASE ERROR’ INDICATOR 
040770 012760 000011 000000 MOV qi RACE] (RO) SCLEAR THE 
040776 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
041004 104026 EMT 6 
041006 013737 001170 001126 77$: MOV STMP2, SBDDAT :LOOK FOR BIT FAILURES WHEN RMDS READ 
041014 -013737 001224 001240 MOV TNBR : CHANGE POR 
041022 042737 100000 001126 BIC ORAS ASE DDAT ‘DON'T CHECK THE OTTN BIT 
(41030 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS Ok ? 
041036 001401 BEQ 783 ‘BR IF OK FROM PORT A. 
041040 104007 EMT 7 
041042 013737 001172 001126 78$: MOV STMP3,SBDDAT CHECK _RMDS FOR BIT FAILURES - FROM PORT B. 
041050 013737 001226 001240 MOV PORTB,PTNB :CHANGE PORT NUMBER 
041056 042737 100000 001126 BIC HATA, $BDDAT [DON'T CHECK THE ATTN BIT 
041064 023737 001124 001126 CMP SGDDAT,SBDDAT ;:SEE IF READ OK FROM PORT B. 
041072 001401 BEQ 79$ :BR IF OK 
041074 104007 EMT 7 
041076 000240 79$: NOP 


;VERIFY THAT ATTENTION FOR PORT 3 IS STIL SET 
001226 600010 MOVB PORTB,RMCS2(RO) SELECT PORT 6 
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MOV PORTB,PTNBR MOVE PCRT ADDRESS TO LOCATION FOR TYPEOUT 

CLR CKERR sCLEAR THE “CHECK K ERROR’ INDICATOR 

MOV RMDS(RO) ,SBDDAT ":GET CONTENTS OF RMDS 

MOV #RMDS SBDADR sFORM REGISTER ADDRESS OF ERROR MESSAGE 

ADD 0,$BDA sADD RH/RM BASE ADDRESS 

MOV aATAT SCDDAT ;WHAT REGISTER SHOULD BE 

MOV SBDDAT,STMPO ' ;MOVE REGISTER CONTENTS TO ‘STMPO’ 

BIC #CATA, "STMPO SAVE SPECIFIED BITS 

CMP SGDDAT.STMPO ~  ; COMPAR eH HE 

MOV SBDDAT, STMP4G ZCOPY "BAD DATA’ 

BIC HATA, STMP4 *CLEAR THE MASKED BITS 

BIS STMPS, ,SGDDAT  :°OR* WITH GOOD DATA FOR TYPEOUT 
al com CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
1$: SCOPE 


FRARRARAAAAARA RARER ARE REE EREERARAARAEAAERAERARAAREREERRERERRRR EER 


TATEST 31 RESET ATTENTION °B* BY GO TEST 


VERIFY THAT THE ‘GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 


A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET- 


B. SEIZE THE DRIVE THROUGH PORT ‘B* BY WRITING 0°S 
INTO RMDS 


C. ISSUE A NOP COMMAND. 
D. ee THE fal bs THROUGH PORT ‘BR’. y= THAT THE 
TTENTION BIT FOR PORT ‘B' IS RESET, AND THE 
ATTENTION BIT FOR PORT ‘A’ IS STIL set 


a aipeigticanea imma i aint i ictal ichamamat tats 
131: 
TST ern. on ie more ONLY SINGLE TEST ? 


IF 
BPL i 7BR_IF JUST ENTERED TEST 
JMP ZRETURN & GET NEXT TEST NUMBER 


1$: ; 
2s: MOV saat SLPADR SETUP SCOPE LOOP ADDRESS 
resrsi: MOY —CATESTS” “SUPER SETUP ERROR LOOP ADDRESS 


MOVB «#31, STSTNM :MOVE #31 TO TEST NUMBER 
MOV #STACK, SP *LOAD THE STACK POINTER 
MOV #10. STIMES £;D0 10. ITERATIONS 


ee 


Hts e Be Se Se Se Se Ge Be Ge Be Ge Se Se Se Ge Fe Be & 


3SET ATTENTION BITS FOR BOTH PORTS 


MOVB _— PORTA, RMCS2(RO) : SELECT PORT 64$ 
66$: Ist RMDS (RO) MAKE SURE DRIVE AVAILABLE 





SEQ 0114 


a0 
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131 TENTION °B* BY GO 


041320 012760 177777 000014 MOV #-1,RMER1(RO)  ;FORCE ERRORS 
041326 00306 000014 CLR RMER1 (RO) SCLEAR THE ERRORS 
041332 013760 001226 000010 MOV PORTB,RMCS2(RO) :SELECT THE OTHER PORT 
041340 905760 000012 64$: TST RMDS (RO) :WAIT FOR DRIVE TO TIMEOUT 
041344 00177 BEQ 64$ <BR IF DRIVE HASN'T TIMED OUT 
041346 012760 177777 000014 MOV #-1,RMER1(RO) FORCE ERRORS ON PORT 65$ 
041354 005060 000014 CLR RMER1 (RO) [CLEAR THE ERRORS, 
041360 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT 64$'' AGAIN 
041366 005760 000012 65$: TST RMDS (RO) ;WAIT FOR BRIVE To T TIMEOUT 
041372 001775 BEQ 65$ :BR IF DRIVE HASN'T TIMED OUT 
CONFIRM THAT BOTH ATTENTION BITS ARE SET 
041374 113760 001226 000010 MOVB PORT, RMCS2(RO) ;SELECT PORT B 
041402 013737 001226 001240 MOV B,PTNBR ;MOV ve PORT ADDRESS TO LOCATION FOR TYPEOUT 
041410 005037 001250 CLR OR CERR sCLEAR THE ‘CHECK ERROR’ INDICATOR 
041414 016037 000012 001126 MOV RMDS(RO), + yee *GET CONTENTS OF RMDS 
041422 012737 Bp001s 001122 MOV ARMDS , $BDAD ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
041430 060037 00112 ADD RO, $8DADR ADD RH/RM BASE ADDRESS 
041434 012737 100000 001124 MOV HATA, SGDDAT SWHAT REGISTER SHOULD BE 
041442 013737 001126 001164 MOV SBDDAT,STMPO sMOVE REGISTER CONTENTS TO ‘STMPO* 
041450 042737 077777 001164 BIC #*CATA, *S$TMPO SAVE SPECIFIED BITS 
041456 023737 001124 001164 CMP SGDDAT.S$TMPO ° ;COMPARE THE BITS 
041464 001414 BEQ 67$ ‘BR IF OK 
041466 013737 001126 001174 MOV SBDDAT.$TMP4 § :COPY "BAD DATA’ 
041474 042737 100000 001174 BIC HATA, $TMP4 CLEAR THE MASKED BITS 
Bet 208 Ph ETA 001174 0601124 eat $TMP4, $GDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
041512 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
041516 000240 67$: NOP 
041520 005737 001250 TST CKERR ;WAS ATTENTION SET FOR 82? 
041524 001402 BEQ +6 SYES!! 
041526 000137 042720 JMP 1$ 3NO - BYPASS a vad OF TEST 
041532 113760 001224 000010 MOVB PORTA. RMCS2(RO) °:SELECT PORT A 
041540 013737 001224 001240 MOV PORTA.PTNBR sMOVE P PORT Bg 5 TO LOCATION FOR TYPEOUT 
941546 005037 001250 CLR CKERR sCLEAR THE ‘CHECK ERROR’ INDICATOR 
041552 016037 000012 001126 MOV RMDS(RO) ,SBDDAT "GET CONTENTS OF RMDS 
041560 012737 000012 001122 MOV #RMDS,$BDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
041566 060037 001122 ADD RO, $BDADR sADD RH/RM BASE ADDR ESS 
041572 012737 100000 001124 MOV HATA, $GDDAT sWHAT DECTSTER SHOULD BE 
041600 013737 001126 001164 MOV SBDDAT, $TMPO VE REGISTER CONTENTS TO ‘$TMPO' 
041406 042737 077777 001164 BIC See T A STMPO :SAVE, SPECIFIED D BITS 
041614 023737 001124 001164 CMP SGDDAT.$TMPO ° ;COMPARE THE BITS 
041622 001414 BEQ 69 ‘BR IF OK 
041624 013737 001126 001174 MOV SBDDAT .STMP4 :COPY "'* DATA’ 
041632 042737 100000 001174 BIC HATA, STM [CLEAR THE MASKED BITS 
ether FRET 001174 001124 eat $TMP4 , $GDDAT "OR" WITH GOOD DATA FOR TYPEOUT 
041650 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
041654 900240 69$: NOP 
041656 005737 001250 TST CKERR :WAS ATTENTION SET FOR A?? 
041662 001402 BEQ +6 YES! ! 
041664 000137 042720 JMP 1$ :NO = BYPASS REST OF TEST 
:SEIZE THE DRIVE THROUGH PORT B 
041670 113760 001226 000010 MOVB = PORTB,RMCS2(RO) ;SELECT PORT B 


rene. 6 hin 
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RESET ATTENTION Y G 
041676 013737 001226 001242 MOV PORTB, SEIZPT + STORE SEIZING PORT'’S ADDRESS 
041704 005060 000012 CLR RMDS T DS 
041710 113760 001224 000010 MOVB PORTA, RMCS2(RO) °;SELECT P 
041716 013737 001 34 001240 MOV PORTA.PTNBR onové’e CRT ADDRESS To LOCATION FOR TYPEOUT 
041724 013737 001224 001244 MOV PORTA,OPPRT OPPOSITE. PORT ADDRESS 
041732 016037 000012 001126 MOV RMDS(RO),$BDDAT :SEE IF DRIVE SEIIED BY PORT 8 | 
041740 010037 00122 MOV RO, SBDADR SRH/RM BASE ADDRESS 
041744 062737 000012 001122 ADD #RMDS,SBDADR § :GENERATE BAD REGISTER ADDRESS 
041752 005037 001124 CLR SGDDAT SREGISTER SHOULD BE ZERO 
041756 023737 001124 001126 CMP SGDDAT,$BDDAT 31S THE REGISTER ZERO 
41764 001403 BEQ 71$ <BR IF IT IS 
041766 104004 EMT 4 
041770 000137 042720 - JMP 1$ sBYPASS REST OF THE SUBTEST 
041774 113760 001226 000010 MOVB _— PORTB,, RMCS2(RO) SELECT PORT 8B 
042002 013737 001226 001240 MOV PORTB,PTNBR sMOvVE P PORT ADDRESS TO LOCATION FOR TYPEOUT 
042010 016037 000012 001126 MOV RMDS(RO),SBDDAT ;SEE IF SEIZING PORT SECS CORRECT STATUS 
042016 042737 020001 001126 BIC ROMP IP DDA LEAR DONT CARE BITS 
2024 012737 011700 001124 MOV MMOL :PGHDPR!DRY !VV SGDDAT sEXPECTED STATUS 
042032 013737 001124 001166 MOV SGDDAT,$TMP1  ;USE GOOD DATA AS A MASK 
005137 001166 COM $TMP1 SE OPE CEMENT THE Expectep STATUS 
042044 013737 001126 001164 MOV SBDDAT, STMPO 7SAVE THE ACTUAL STATUS 
042052 043737 001166 001164 BIC STMP1,$TMPO LEAR UNWAN TED Bit S 
023737 001124 001164 CMP SGDDAT, $TMPO < ARE THE EXPECTED STATUS BITS SET ? 
042066 001401 BEQ 72$ *BR IF THEY ARE 
042070 104005 EMT 5 
042072 000240 72$: NOP 
zs ISSUE NOP COMMAND TO PORT B 
042074 012760 000001 000000 MOV #1,RMCS1(RO) 
s VERIFY THAT ATTENTION FOR PORT B CLEARED 
042102 005037 001250 CLR CKERR SCLEAR THE ‘CHECK ERROR’ INDICATOR 
042106 016037 000012 001126 MOV RMDS(RO) ,SBDDAT "GET CONTENTS OF RMDS 
042114 012737 000012 001122 MOV #RMDS,$BDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
042122 060037 001122 ADD RO, $BDADR sADD RH/RM BASE ADDRESS 
042126 005037 001124 CLR $GDDAT iWHAT REGIST ER SHOULD BE 
042152 013737 001126 001164 MOV SBDDAT. STMPO “MOVE REGISTER CONTENTS TO ‘STMPO' 
042140 042737 077777 001164 BIC W°CATA.$TMPO SAVE SPECIFIED BITS 
042146 023737 001124 001164 CMP $GDDAT. STHPO sCOMPARE THE BITS 
042154 001414 BEQ 73 SBR 
042156 013737 001126 001174 MOV SBDDAT.STMP4 §:COPY "BAD DATA’ 
042164 042737 100000 001174 BIC HATA *CLEAR THE MASKED BITS 
Bis Ir6 FETE 001174 001124 eae $TMP4 , $GDDAT 3:"OR* WITH GOOD DATA FOR TYPEOUT 
042202 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
042206 000240 73$: NOP 
;RELEASE THE DRIVE FRUM PURI 6 | 
042210 113760 001226 000010 MOVB PORTB,RMCS2(RO)_ SELECT PORT B 
042216 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
042224 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 


;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
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RESET ATTENTION °B’ BY GO 


5037 1254 CLR RELERR CLEAR THE ‘RELEASE ERROR ° INDICATOR 
Oss e 003037 O000%¢ 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
042244 060037 00112 ADD RO, $BDA ¢AD THE 1/0 BASE ADDRESS 
042250 O16! 7 017700 001124 MOV #MOL! PGM!DPR!DRY! i aa Bt yO aachomrtns CONSTANT 
042256 11 reo 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT P 
042264 0160 000012 001170 MOV RMDS (RO) , “GET THE ORIVE’ STATUS REGISTER FROM PORT A. 
042272 042737 024001 001170 BIC #PIP'WRL'OM, sCLEAR DONT CARES 
042300 013737 001170 001164 MOV STMP2, story IT INTO ‘STMPO‘ 
042306 Meroe 100100 1164 BIC HATA! VV, STMPO CLEAR gol oe BITS FROM THE COPY 
042314 113760 001226 000010 MOVB PORTB,RMCS2 (RO) ‘SELECT P T 6. 
ha 554 016037 000012 001172 MOV RMDS(RO) , STMPS “GET THE ORIVE STATUS REGISTER FROM PORT &. 
042330 042737 024001 001172 BIC #PIP'WRL'OM,STMP3 ;CLEAR DONT CARES 
042336 013737 001172 001166 MOV STMP3,STMP1 sCOPY IT INTG ‘STMP1° 
042344 042737 100100 001166 BIC MATA! VV,STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
Oise28 sated 001164 001166 oe cpanel iS ie MD i REGISTER THE SAME FROM BOTH PORTS ? 
042362 05737 001164 TST STMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 
025390 104046 MEG rallies 
042372 000137 042572 JMP 79$ BYPASS Has REST OF THE CHECKS 
042376 013737 001170 001126 75$: MOV STMP2,$BDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
042404 013737 001226 001240 MOV PORTB,PTNBR * SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
042412 113760 001226 000010 MOVB PORTB.RMCS2(RO) iSEL LECT PORT 8B. 
042420 005737 001164 TST $STMPO SEE IF STATUS EQ 0 FROM (‘DRT A. 
042424 001414 BEQ 76$ ‘BR IF ZERO 
042426 013737 001224 091240 MOV PORTA, oaeeat sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
042434 013737 001172 001126 MOV STMP3,$8D "BAD DATA’: re ERROR TYPE OUT 
042442 113760 001224 000010 MOVB PORTA, ee CRO) s SELECT PORT 
Oosiee sat elA 001166 i ol SEE IF STATUS “EQ ZERO FROM PORT B. 
042456 012737 177777 001254 76$: MOV #-1,RELERR SET RELEASE ERROR’ INDICATOR 
042464 012760 000011 000000 MOV #11.RMCS1(RO) :CLEAR THE DRIVE 
posers 916780 000013 000000 — #13.RMCS1(RO) :RELEASE THE DRIVE 
042502 013737 001170 001126 77$: MOV STMP2,$BDDAT ;LOOk FOR BIT FAILURES WHEN RMDS READ 
2510 013737 001224 001240 MOV PORTA, PTNBR HANGE PORT NUMBER 
2516 pitta 100000 001126 BIC #ATA, SBDDAT :DON'T One THE ATTN BIT 
2524 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS O 
Seer 1 es 4 pee res ‘BR IF OK PROM PORT A. 
36 013737 001172 001126 78S: MOV STMP3,$BDDAT sCHECK RMDS FOR at FAILURES = FROM PORT B. 
44 013737 001226 001240 MOV PORTB,PTNBR 3¢ WANG PORT NUMBER 
52 042737 100000 001126 BIC HATA, S$BDDAT :DON'T CHECK THE ATTN BIT 
60 023737 001124 001126 CMP SGDDAT , SBDDAT : SEE IF READ OK FROM PORT B. 
$6 001401 pre 79$ :BR IF OK 
72 79$: NOP 


VERIFY THAT ATTENTION FOR PORT A IS STIL SET 


0 MOVB PORTA, pce ne ;SELECT PORT 
0 MOV PORTA, PTNBR MovE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR CLEAR THE ‘CHECK ERROR* INDICATOR 
6 MOV pas dig SBDDAT ;GET CONTENTS OF 
2 MOV RMDS,$SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
D KO. SBDADR 3ADD RH/RM BASE ADDRESS 


ao 
toms 


— 
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RESET ATTENTION °B" BY 
634 a 731 100000 
737 Oot les 
els 0777 
4 7 001124 
3737 001126 
2737 100000 
3737 001174 
001250 
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042722 O0STee 001300 


042732 000137 003062 


042736 012737 177777 
042744 012737 042760 
042752 012737 042760 
042760 

042760 112737 000032 
427: 012706 001100 
042772 012737 000012 


043000 113760 001224 
043006 005760 000012 


043014 012760 177777 


0430 p02760 000012 
043042 012760 177777 
005060 


11 
43062 005760 000012 
001 








001300 
001106 
001110 
001102 


001176 


000010 


000014 
000010 


000014 
000010 
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WATA,SGDDAT ;WHAT REGISTER SHOULD BE 
SBDDAT ,STMP MOVE REGISTER > tea TO *$TMPO’ 
#*CATA, -$TMP sSAVE SPECIFIED BITS 

TMP COMPARE THE BITS 


S$GDDAT.$ 
80$ “BR IF 

SBDDAT.$TMP4 § :COPY ‘BAD DATA’ 

HATA, STMPG SCLEAR THE MASKED BITS 
$TMP&4.$GDDAT _:°OR* WITH GOOD DATA FOR TYPEOUT 


CKERR 7SET THE REGISTER COMPARE ERROR INDICATOR 


= aoRee 


RRR RAREAERARERERAEERERERERERAARERERARAEERERRERERERERERREAREEEE 


;STEST 32 


;*VERIFY THAT MASSRUS CLEAR RESETS BOTH PORT'S ATTENTION BITS WHEN THE 
DRIVE IS IN NEUTRAL. 


SET THE ATTENTION BITS FOR BOTH PORTS. 
VERIFY THAT THE DRIVE IS IN NEUTRAL. 
Be A MASSBUS INIT. VERIFY THAT BOTH ATTENTION BITS HAVE 


A. 
B. 
Gs 


7 A Pore ar ey 


meg o Be Oe Be Se Be Be Be Se oe 


$132: 


1$: 
2$: 


TEST32: 


TEST RESET ATTENTION ‘A’ & ‘B' BY MASSBUS INIT 


ERA EEREREREREEEREERRAAEERARRAEREREREAREAAEEAARERAEREE 


on a Ore ONLY SINGLE TEST ? 
1$ 3BR IF JUST gin TEST 
RETURN & GET NEXT TEST NUMBER 


; RETURN 

SET SINGLE TEST INDICATOR 
FTEST Se, SLPADR TSETUP SCOPE '.00P ADDRESS 
#TEST32,$LPERR ;SETUP ERROR LOOP ADDRESS 


#32,STSTNM sMOVE #32 TO TEST NUMBER 
#STACK,SP :LOAD THE STACK POINTER 
#10. ,$TIMES 0 19. ITERATIONS 


3SET ATTENTION BITS FOR BOTH PORTS 


66$: 


64$: 


65$: 


PORTA,RMCS2(RO) ;SELECT PORT 64$ 
RMDS (RO) [MAKE SURE DRIVE AVAILABLE 


66$ 

#~1,RMER1(RO) FORCE ERRORS 
RMER1 (RO) *CLEAR THE ERRORS 
PORTB, RMCS2(RO) iSELECT THE OTHER POR 
RMDS (RO) WAIT FOR DRIVE T 


64$ BR 

#-1,RMER1(RO) ;FORCE ERRORS ON POR 
RMER1(R :C RRORS 
adh, RMCS2(RO) : SELECT PORT ess AGA} 


$(RO) “WAIT FOR DRIVE TO Tl 
‘BR IF DRIVE HASN'T TIMED OUT 


P=) 


am 
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CZRNHAO RM80 DUAL PORT PT1 MACRO V04. 
T32 TEST RESET ATTENTION ‘A* & "B’ BY MASSBUS | 
sCONFIRM THAT BOTH ATTENTION BITS ARE SET 
043070 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ;SELECT PORT 
043076 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
043104 005037 001250 CLR CKERR an LEAR THE "CHECK ERROR’ INDICATOR 
043110 016037 000012 001126 MOV RMDS(RO),SBDDAT °:GET CONTENTS OF RMDS 
043115 012737 900012 001122 MOV #RMDS, $BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
043124 060037 00112 ADD RO M BASE A DDR ESS 
043130 012737 100000 001124 MOV #ATA, $GDDAT sWHAT DECISTER SHOULD BE 
043136 013737 001126 001164 MOV SBDDAT, $TMP sMOVE REGISTER CONTENTS TO "$TMPO' 
043144 042737 077777 001164 BIC W°CATA.$TMPO ;SAVE SPECIFIED BITS 
043152 023737 001124 001164 CMP SGDDAT, STMPO  ;COMPARE THE BITS 
043160 001414 BEQ 67 ‘BR IF OK 
043162 013737 001126 001174 MOV SBDDAT.$TMP4 § COPY "BAD DATA’ 
043170 042737 100000 001174 BIC HATA, STMPG :CLEAR THE MASKED BITS 
043176 053737 001174 001124 BIS $TMP4 , SGDDAT SOR WITH GOOD DATA FOR TYPEOUT 
043204 104010 EMT 
043206 005137 001250 COM CKERR ;SzT THE REGISTER COMPARE ERROR INDICATOR 
043212 000240 67$: NOP 
043214 005737 001250 TST CKERR :WAS ATTN BIT FOR PORT A SET ? 
043220 001402 BEQ +6 BR IF IT WAS 
043222 000137 044176 JMP is PASS RES! OF TEST IF NOT 
043226 113760 001226 000010 MOVB _—s- PORTB, RACS2(RO) OSELeCT P 
043234 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
043242 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
3346 016037 000012 001126 MOV RMDS(RO),$BDDAT ';GET CONTENTS OF RMDS 
043254 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
043262 060037 001122 ADD RO, $BDADR sADD RH/RM BASE ADDRESS 
3366 012737 100000 124 MOV HATA. $CDDAT sWHAT REGISTER SHOULD BE 
043274 013737 001126 001164 MOV SBDDAT,$TMPO ° ;MOVE REGISTER CONTENTS TO ‘*STMPO' 
043302 042737 077777 001164 BIC #*CATA.STMPO SAVE SPECIFIED BITS 
043310 023737 001124 001164 CMP SGDDAT.$TMPO ;COMPARE THE BITS 
043316 001414 BEQ 6 IF OK 
043320 013737 001126 001174 MOV SBDDAT STMP4 = COPY “BAD DATA’ 
043326 042737 100000 001174 BIC HATA, $TMP4 *CLEAR THE MASKED BITS 
043334 053737 001174 001124 BIS $TMP4,$GDDAT | :*°OR’ WITH GOOD DATA FOR TYPEOUT 
043342 104010 EMT 10 
043344 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
043350 000240 69$: NOP 
043352 005737 001250 TST CKERR :WAS ATTN BIT FOR PORT B SET ? 
043356 001402 BEQ +6 ‘BR IF IT WAS : 
043360 000137 044176 JMP i$ [BYPASS REST OF TEST IF NOT 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
043364 005037 001254 CLR RELERR ZCLEAR THE "RELEASE ERROR ' INDICATOR 
043370 012737 900012 001122 MOV #RMDS, SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEOU: 
043376 060037 00112 ADD RO, SBDADR TADD THE 1/0 BASE A DOR ESS 
04 3408 012737 111700 001124 MOV #111700, $GDDAT i COMPARS ION CONSTAN 
043410 113760 001224 000010 MOVB PORTA, RACS2(RO) SELECT 
043416 016037 000012 001170 MOV S(RO)  STMP2 “GET THE PORIVE™ STATUS REGISTER FGM PORT A. 
043424 042737 024001 001170 BIC #PIP'WRL'OM,STMP :CLEAR DONT CARES 
043432 013737 001170 001164 MOV STMP2, STHPO sCOPY IT INTO *STMPO' 
043440 042737 100100 001164 BIC WATAIVV *CLEAR PORT DEPENDENT BITS FROM THE COPY 
043446 113760 901226 000010 MOVB _—«— PORTB snaegeCrD) : SELECT 
043454 016037 000012 001172 MOV RMDS(RO).$TMF3 :GET THE PORIVE “STATUS REGISTER FROM PORT B. 


SEQ 0119 


: 
| 
| 
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CZRNHAO RM8O DUAL PORT PT1 MACRO V04. 
T32 TEST RESET ATTENTION ‘A’ & 'B' BY MASSBUS | 
043462 ny 024001 001172 BIC #PIP!WRL!OM,STMP3 CLEAR DONT CARES 
043470 001172 001166 MOV STMP3,$TMP1 7COPY IT INT "$TMP1' 
043476 8439 100100 001166 BIC HATA'VV,$TMP1  :CLEAR PORT DEP ENDENT BITS FROM THE COPY 
043504 023737 001164 001166 CMP $TMPO,$TMP1 t1$ THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
043512 007 BNE 71$ ‘BR IF NO 
043514 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
043520 001045 BNE 73$ ‘BR IF NOT 
04 3522 10404 EMT 46 
043524 000137 043710 JMP 75$ sBYPASS THE REST OF THE CHECKS 
043530 013737 001170 001126 71$: MOV STMP2,$BDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
043536 013737 001226 001240 MOV PORTB,PTNBR : SEIZING, PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
043544 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
043552 005737 001164 TST $TMPO SEE IF STATUS EQ 0 FROM PORT A. 
043556 001414 BEC 72$ 7BR IF ZERO 
043560 013737 001224 001240 MOV PORTA, PTNBR ZSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
043566 013737 001172 001126 MOV STMP3,$BDDAT :*BAD DATA’ _ ERROR TYPE OUT 
043574 113760 001224 000010 MOVB = PORTA.RMCS2(RO) :SELECT PORT A. 
043602 005737 001166 TST $TMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 
043606 00101 BNE 73$ [BR IF NOT 
043610 012737 177777 001254 72$: MOV #=1,RELERR SET “RELEASE ERROR’ INDICATOR 
043616 012760 000011 000000 MOV #11.RMCS1(RO)  :CLEAR THE DRIVE 
043624 012760 000013 000000 MOV #13.RMCS1(RO) RELEASE THE DRIVE 
043634 013737 001170 001126 73$: MOV $TMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
042642 013737 001224 001240 MOV PORTA.PTNBR [CHANGE PORT NUMBER 
043650 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
043656 001401 BEQ 74$ [BR IF OK FROM PORT A. 
043660 104007 EMT 7 
043662 013737 001172 001126 74%: MOV STMP3,$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
043670 013737 091226 001240 MOV PORTB.PTNBR [CHANGE PORT NUMB 
043676 023737 001124 001126 CMP SGDDAT,$SBDDAT :SEE IF READ OK FROM PORT B. 
043704 001401 BEQ 75$ [BR TF OK 
043706 104007 EMT 7 
043710 000240 75$: NOP 
043712 005737 001254 TST RELERR ;WAS DRIVE IN NEUTRAL ? 
043716 00140¢ BEQ +6 [BR T WA 
043720 000137 044176 JMP is SBYPASS RESET OF TEST 
;ISSUE THE MASSBUS INIT 
043724 012760 000040 000010 MOV ACLR,RMCS2(RO) ;ISSUE A MASSBUS INIT 


:CHECK THE ATTENTION BITS OF BOTH PORTS 


043732 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 

043740 013737 001224 001240 MOV PORTA-PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
043746 005037 001250 CLR CKERR sCLEAR THE ‘CHECK ERROR’ INDICATOR 
043752 016037 900012 001126 MOV RMDS(RO) ,SBDDAT "GET CONTENTS OF RMDS 

043760 012737 000012 001122 MOV Rs SBDADR ;:FORM R REGISTER ADDRESS OF ERROR MESSAGE 
043766 060037 001128 ADD 0, $BDADR ;ADD RH/RM BASE ADDRESS 

043772 005037 001124 CLR So6LAT ;WHAT REGISTER SHOULD B 

043776 013737 001126 001164 MOV SBDDAT,$T MOVE REGISTER CONTENTS TO *STMPO' 
044 042737 077777 001164 BIC #°CATA, STM : SAVE SPECIFIED BITS 

044012 023737 001124 001164 CMP SGDDAT,$T ;COMPARE THE BITS 

044020 001414 BEOQ F 

044022 013737 001126 001174 MOV SBDDAT, STMP4 :COPY "BAD DATA’ 

044030 042737 100000 001174 BIC MATA, STMP4 [CLEAR THE MASKED BITS 
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044036 
04 


044256 
044264 
044270 


eaegress 


oS 
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wr 
IN 
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053737 
005137 
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mo 
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001775 





001174 
001250 


001226 
5 


001124 
001126 
100000 
001174 


001250 


001300 
003062 


044236 


000033 
001100 
000002 


001224 
000012 
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$TNP4 .SGDDAT 
CKERR 
PORTB, RACS2(RO) 
PORTB,PT 
CKERR 
RDS (RQ) , gSBDDAT 
#RMDS , SBDADR 
R0 SB6A0R" 
SBDDAT,STMPO 
#°CATA,STMPO 
SGDDAT. *STMPO 
SBDDAT. STMP4 
HATA, $TMPG 
srnrs, $GDDAT 
CKERR 


sea orat | 


7"OR* WITH GOOD DATA FOR TYPEOUT 
zSET THE REGISTER COMPARE ERROR INDICATOR 


-SELECT PORT B 
move P PORT ADDRESS TO LOCATION FOR TYPEOUT 
LEAR THE ‘CHECK ERROR’ INDICATOR 
GET CONTENTS OF RMDS 
"okt h REGISTER ADDRESS OF ERROR MESSAGE 
sADD RH/RM 3ASE ADDRESS 
‘WHAT REGIST ER SHOULD BE 
“MOVE REGISTER CONTENTS TO *STMPO' 
sSAVE SPECIFIED BITS 
; COMPAR ET HE BITS 
:COPY "BAD DATA’ 
‘CLEAR THE MASKED BITS 
:"OR' WITH GOOD DATA FOR TYPEOUT 
sSET THE REGISTER COMPARE ERROR INDICATOR 


;LOOP ? 


LRRRRRERARERERARRERAREREEEEERERERRERAEREREERERERERERERRRRRERERARR ERE 


RESET ATTENTION °A* & °B* BY RMAS 


SVERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE 
; APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER. 


SET THE ATTENTION BITS FOR BOTH PORTS. 
VERIFY THE DRIVE IS IN NEUTRAL. 


WRITE THE DRIVE'S ATTENTION BIT IN RMAS. VERIFY 
THAT BOTH ATTENTION BITS ARE RESET AS SEEN BY RMAS. 


KYBCTL 
2$ 


#-1,K 
PTESTS3, SLPADR 
ATEST33,$LPERR 


oe STSTNM 
#STACK, SP 
#2. ,STIMES 


RERRERRAEREERERRAERRERREREEREREREEEEREEREREKEERREREKEEEREEEEKEEEEEEEEE 


; PERFORMING ONLY SINGLE TEST ? 


:BR IF JUST ENTERED TEST 

N & GET NEXT TEST NUMBER 
eer SINGLE TEST INDICATOR 
ZSETUP SCOPE LOOP ADDRESS 
ZSETUP ERROR LOOP ADDRESS 


sMOVE #33 TO TEST NUMBER 
LOAD ? TeRATL POINTER 
3300 2. RATIONS 


3SET ATTENTION BITS FOR BOTH PORTS 


an 4 BY MASSBUS | 
001124 BIS 
EMT 
COM 
76$: NOP 
000010 MOVB 
001240 MOV 
CLR 
00112 MOV 
00112 MOV 
ADD 
CLR 
001164 MOV 
001164 BIC 
001164 CMP 
BEQ 
001174 MOV 
001174 BIC 
001124 BIS 
EMT 
COM 
78$: NOP 
1$: SCOPE 
;STEST 33 
ce A. 
3* 
37* B. 
3* 
s* C. 
3* 
:* 
18133: 
TST 
BEQ 
BPL 
JMP 
001300 1$: MOV 
001106 2$: MOV 
001110 MOV 
TEST33: 
001102 MOVB 
MOV 
001176 MOV 
000010 MOVB 
66$: TST 
BEQ 


PORTA, RMCS2(RO) 
RMDS (RO) 
66$ 


SELECT PORT 64$ 
3MAKE SURE DRIVE AVAILABLE 


| 
| 
| 


—— 





am 
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133 RESET ATTENTION °A* & ° 


944272 012760 177777 000014 MOV #~1,RMER1(RO)  :FORCE ERRORS 

044 005060 000014 CLR RMERT (RO) SCLEAR THE ERRORS 

044304 013760 901226 000010 MOV PORTB, RMCS2(RO) SELECT THE OTHER PORT 

044312 005760 90001 64$: TST RMDS (RO) ‘WAIT FOR DRIVE TO TIMEOUT 
044316 001775 BEQ ‘BR IF DRIVE HASN'T TIMED OUT 
044320 012760 177777 000014 MOV #-1,RMER1(RO) FORCE ERRORS ON PORT 65$ 
044326 005060 000014 CLR RO) CLEAR THE ERRORS. 

044332 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT '64$'' AGAIN 
044340 005760 000012 65$: TST RMDS (RO) ‘WAIT FOR DRIVE TO TIMEOUT 
044344 001775 BEQ 65$ ‘BR IF DRIVE HASN'T TIMED OUT 


3 CONF IRM Bis BOTH Ay Ey, BITS ARE SET 


113760 001224 000010 PORTA, RMCS2(RO> :SFLECT PuRT A 
044354 013737 001224 601240 MOV PORTA, aunts ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

362 005037 001250 CLR CKERR =CLEAR THE "CHECK ERROR’ INDICATOR 

016037 000012 001126 MOV RMDS(RO).SBDDAT ';GET CONTENTS OF RMDS 
044374 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
044402 060037 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
044406 012737 100000 001124 MOV WATA,SGDDAT ;WHAT REGISTER SHOULD BE 
044414 013737 001126 001164 MOV SBDDAT,$TMPO ° ;MOVE REGISTER CONTENTS TO ‘STMPO' 
044422 042737 077777 001164 BIC #*CATA.S$TMPO SAVE SPECIFIED BITS 
023737 001124 001164 CMP SGDDAT.STMPO ° ;COMPARE THE BITS 
044436 001414 BEQ 67 
044440 013737 001126 001174 MOV SBDDAT,STMP4 <COPY "BAD DATA’ 
044446 042737 100000 001174 BIC HATA, $TMP4 SCLEAR THE MASKED BITS 
044454 052737 001174 001124 BIS $TMP4, SGDDAT TOR WITH GOOD DATA FOR TYPEOUT 
044462 104010 EMT 10 
044464 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
044470 000240 67$: NOP 
044472 005737 001250 TST CKERR sWAS ATA SET FOR 4?? 
044476 001402 BEQ +6 SYES = CONTINUE 
044500 000137 045322 JMP is SBYPASS REST OF TEST 
044504 113760 001226 000010 MOVB _—sC—wPORTB, RACS2(RO) “SELECT PORT B 
044512 013737 001226 001240 MOV POR 18. TNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
044520 005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
044524 016037 000012 001126 MOV RMDS(RO) SBDDAT ";GET CONTENTS OF RMDS 
044532 012737 000012 001122 MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
044540 060037 001122 ADD RO, $BDADR sADD RH/RM BASE ADDR ESS 
044544 012737 100000 001124 MOV HATA,$GDDAT ;WHAT REGISTER SHOULD BE 
044552 013737 001126 001164 MOV SBDDAT.$iMPO ' ;MOVE REGISTER CONTENTS TO "STMPO' 
044560 042737 077777 001164 BIC #°CATA, *STMPO SAVE SPECIFIED BITS 
044566 023737 001124 001164 CMP SGDDAT.$TMPO :COMPARE THE BITS 
044574 001414 BEQ 6 IF OK 
044576 013737 001126 001174 MOV SBDDAT STMP4  : COPY "BAD DATA’ 
044604 042737 100000 001174 BIC STMP4 *CLEAR THE MASKED BITS 
044612 053737 001174 001124 BIS ont SeDDAT :*OR* WITH GOOD DATA FOR TYPEOUT 
044620 104010 EMT 
044622 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
044626 000240 69$: NOP 
044630 005737 001250 TST CKERR ;WAS ATA SET FOR B2? 
0446346 001402 BEQ +6 “YES = CONTINUE 
044636 000137 045322 JMP is SBYPASS REST OF TEST 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

044642 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR * INDICATOR 
044646 012737 000012 001122 MOV #RMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
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CZRNHAO RM80 DUA PT1 MACRO 
a8 RESET WOT ENTION. ‘a’ & 'B' BY RMAS 
11 ADD zADD THE 1/0 BASE ,ADDRESS 

vert} Oie73s 90188 001124 MOV BOT 30O $6 GDDAT :COMPARSION CON 

4 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A 
044674 016037 900012 901170 Moy RDS (AO ). goer THE DRIVE: SATS Re REGISTER FROM PORT A. 
reat eet 001170 001164 MOV STMP2,$TMPO. ;COPY IT INTO *STMPO' 
044716 042737 100100 001164 BIC WATA'YV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
044724 113760 001226 000010 MOVB PORTE ,RACS2 (RQ) :SELEC CT 
044732 016037 000012 001172 V RMDS(R “GET THE DRIVE “STATUS REGISTER FROM PORT B. 
044740 042737 024001 001172 BIC #PIP'WRL'OM,STMPS sCLEAR: DONT CARES 
pete O38 00100 oor ies Bre Sty eThet <ECEAR PO : RT Op PEN The BITS FROM THE COPY 
bee) Ose 3s 001164 001166 CMP $TmPO, SMP! 31S THE POTATUS REGISTER THE SAME FROM BOTH PORTS ? 
Ree Mitta 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
044776 001045 BNE 73$ ‘BR IF NOT 

5000 104046 EMT 46 
045002 000137 045166 JMP 75$ sBYPASS THE REST OF THE CHECKS 

5006 013737 001170 001126 71$: MOV STMP2,$8DDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
045014 013737 001226 001240 MOV PORTB,PTNBR ; SEIZING. PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
045022 113760 001226 000010 MOVB  PORTB.RMCS2(RO) : SELECT 
045030 005757 001164 IST STMPO iS fF ane EQ 0 FROM PORT A. 
$23036 OO 3737 001224 001240 MOV PORTA,PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

5044 013737 001172 001126 MOV STMP3.$BDDAT _:*BAD DATA’ FOR ERROR TYPE OUT 
045052 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT 
045060 ste tA 001166 eat ae sSEE TF, STATUS “EQ ZERO FROM PORT B. 
Oc30ee Diers? 177777 gorzse 72s: Roy A-L_RELERR SET RELEASE ERROR" INDICATOR 
045103 012760 000013 000000 mov #13, "RMCS1(RO)  :RELEASE THE DRIVE 
peeti2 013737 001170 001126 73$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
ESS ae ge eT EM EES oy FORA Phan saeias Fon! eecn 
045134 001401 BEQ 2 $ *BR IF OK FROM PORT A. 
045140 013737 001172 001126 74$: MOV STMP3,SBDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
045146 013737 001226 001240 MOV PORTB.PTNBR S CHANGE PORT R 
045154 023737 001124 001126 CMP SGDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
Sislse HEL OP mtd 
045166 000240 75$: NOP 
045170 005737 001254 Ist RELERR :WAS DRIVE IN NEUTRAL?? 
045176 atk 045322 JMP is *BYPASS REST OF TEST 

;WRITE THE ATTENTION BIT 

045202 013760 001236 000016 MOV ASR1,RMAS(RO) 
045210 016037 000016 001126 somes nov POTRAAS (RO), SDDAT — BY BEATEN PON SUMMARY 
045216 033737 001236 001126 eI! ASR1,$BDDAT iS Th THE ATTENTION RESET 2? 
045226 010037 001122 MOV RO, $BDADR -SEtuP REGISTER ADDRESS 
045232 062737 000016 001122 ADD.  #RMAS,$BDADR 
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RNHAO RM8O DUAL PORT PT1 MACRO V04.00 
RESET ATTENTION 'A® & 'B" BY RMAS 
045240 0137 7 001126 001124 MOV SBDDAT SGDDAT sSETUP EXPECTED DATA 
045246 943737 001236 001124 BIC ASR1,$GDDA SRESET THIS DRIVES BIT 
045254 104060 EMT 60 
045256 2$: 
SWAIT FOR THE DRIVES TO RELEASE BY TIMEOUT 
045256 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
045264 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
045272 005760 000012 %$: Ist RADS (RO) zMAKE SURE DEVICE 1S AVAILABLE 
045 113760 901226 900010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT 8 
045306 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
045314 005760 000012 4$: TST RMDS (RO) yMAKE SURE DEVICE IS AVAILABLE 
045320 001775 BEQ 4$ 
045322 000004 1$: SCOPE 
FRAAAAAAAAAAE RARER AREER EREREAAARERAARARERERAAAERAAAARARERAERE EES 
:STEST 34 PORT ‘A’ ALTERNATE ATTENTION PATH TEST 
:*VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
ie A. SET THE ATTENTION BIT FOR PORT ‘A’. 
i B. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0°S INTO RMDS. 
:* C. READ THE ATTENTION REGISTER © VERIFY THAT THE ATTENTION BIT 
i FOR THE DRIVE IS SET. 
+: RRAREEARAERAEEEARERARARAREEEERERARAEAAAERARERAEEAAARAAEARARAEREREEEEE 
045324 TST34: 
045324 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
045330 001406 BEQ 2$ TBR IF 
045332 100002 BPL 1$ 7BR IF JUST ENTERED TEST 
045334 000137 00306 JMP EXEC “RETURN & GET NEXT TEST NUMBE 
045340 012737 177777 001300 1$: MOV CTL SSET SINGLE TEST INDICATOR 
045346 012737 045362 001106 2$: MOV aTEstae. SLPADR SETUP SCOPE LOOP ADDRESS 
045354 012737 045362 001110 seine MOV #TEST34.$LPERR :SETUP ERROR LOOP ADDRESS 
045362 112737 000034 001102 "move «#34, STSTNM :MOVE #34 TO TEST NUMBER 
045370 012706 001100 MOV #STACK,SP SLOAD THE STACK POINTER 
045374 012737 000012 001176 MOV #10. STIMES +:D0 10. ITERATIONS 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
045402 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ;SELECT PORT #A 
045410 005060 000012 CLR RMDS (RO) [SEIZE THE DRIVE 
045414 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
043422 012760 070013 000000 MOV #13.RMCS1(RO) RELEASE THE DRIVE 
045430 113760 091226 000010 MOVB _ PORTB, RMCS2(RO) 3SEL LECT PORT #8 
045436 005060 00001 CLR PADS CR) *SEIZE THE DRIVE THROUGH PORT ‘B’ 
045442 012760 000011 000000 MOV #11 sts (ROD <P ESUE DRIVE CLEAR 
045450 012760 000013 000000 MOV #13.RMCS1(RO) ;RELEASE THE DRIVE 
045456 113760 001224 000010 MOVB PORTA, RACS2(RO) SELECT PORT A 
045464 012760 177777 000014 MOV #~1,RMERT (RO) GT ERRORS TO FORCE ATTN BIT ON PORT A 
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PORT ‘A’ AL 
045472 005060 900014 CLR RMER1 (RO) ZCLEAR THE ERRORS 
045476 113769 901226 000010 MOVE PORTB,RMCS2(RO) ";SELECT PORT B 
045504 005760 00 00084 2 1$: TST RMDS (RO) :WAIT FOR DRIVE TO RETURN TO NEUTRAL 
045510 001775 BEQ 1$ ‘BR IF STILL SEIZED TA 
045512 012737 16 001122 MOV ARMAS. SBDADR :FORM ADDRESS OF aTTN REG IF ERROR 
045520 060037 001122 ADD $BDADR TADD THE ADDRESS BASE 
045524 013737 001236 001124 MOV ot $GDDAT [GOOD DATA FOR ERROR MESSAGE 
045532 013737 001236 001166 MOV ASR1.$TMP1 SMAKE DATA COMPAR E MASK 
045540 005137 001166 COM STH I ‘COMPLEMENT IT 
045544 012737 045600 001110 MOV LOAD LOOP ON ERROR ADDRESS 
045552 113760 001226 000010 MOVB eee tae RCS2(RO) >SELECT 8 
045560 013737 001226 001240 MOV PORTB,PTNBR move PORT ADDRESS TO LOCATION FOR TYPEOUT 
045566 013737 001226 001242 MOV PORTB.SEIZPT  ;°SEIZED* PORT ADDRESS 
045574 005060 000012 CLR RMDS (RO) ‘SEIZE THE DRIVE THROUGH PORT B 
045600 016037 000016 001126 2$: MOV RMAS (RO) , SBDDAT 3GET THE CONTENTS OF THE ATTENTION REG 
045606 013737 001126 001164 MOV SBDDAT.$TMPO | :PUT CONTENTS INTO WORKING LOCATION 
045614 043737 001166 001164 BIC STMP1, $TMPO SCLEAR OTHER BITS 
045622 023737 001124 001164 CMP SGDDAT,$TMPO  :SEE IF ATTN BIT FOR DRIVE SET 
045630 001401 BEQ 3$ TBR IF SET 
045632 104053 EMT 53 
045634 3$: 
7RELEASE THE DRIVE FROM PORT B 
045634 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
5642 013737 001226 001240 MOV PORTB,PTNBR sMOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
045650 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
045656 005037 001254 CLR RELERR ZCLEAR THE "RELEASE ERROR ° INDICATOR 
45662 012737 000012 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
045670 060037 001122 ADD RO, $BDADR iA ADD THE 1/0 BASE ADDRESS 
045674 012737 011700 001124 MOV #MOL !PGM!DPR!DRY!V V-SGDDAT COMPARISON CONSTANT 
045702 113760 001224 000010 MOVB _— PORTA, RMCS2(RO) iselecT P 
5710 016037 000012 001170 MOV SRO) , STMP2 “GET THE DRIVE” STATUS REGISTER FROM PORT A. 
045716 042737 024001 001170 BIC #PIF‘WRL‘OM,STMP2 sCLEAR DONT CARES 
045724 013737 001170 001164 MOV $TMP2 s THPO sCOPY IT INTO *$TMPO' 
045732 042737 100100 001164 BIC WATA TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
045740 113760 001226 000010 MOVB PORTA. VRAtS2 (RO) SSELECT 
045746 016037 000012 001172 MOV S(RO),STMPS GET THE PORIVE "STATUS REGISTER FROM PORT 8. 
045754 042737 024001 001172 BIC #PIP'WRL'OM,$T TMS CLEAR DONT CARES 
045762 013737 001172 001166 MOV STMP3,STMP1 3COPY IT TAN NTO *$TMP1° 
045770 042737 100100 001166 BIC HATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
045776 023737 001164 001166 CMP STMPO,STMP1 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
046004 001006 BNE 64$ IF 
046006 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
046012 001045 BNE 66$ ‘BR IF NOT 
046014 104046 EMT 
046016 000137 046216 JMP 68$ sBYPASS THE REST OF THE CHECKS 
046022 013737 001170 001126 64$: MOV STMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
046030 013737 001226 001240 MOV PORTB,PTNBR [SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
046036 113760 001226 000010 MOVB = PORTB.RMCS2(RO) :SELECT 
046044 005737 001164 TST $TMPO “SEE IF STATUS EQ 0 FROM PORT A. 
046050 001414 BEQ 65$ ‘BR IF ZER 
046052 013737 001224 001240 MOV PORTA, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
046060 013737 001172 001126 MOV STMP3.$BDDAT :*BAD DATA’ FOR ERROR TYPE OUT 
46066 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A. 
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046074 005737 001166 TST $TMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
046100 001012 BNE 66$ :BR 1 
046102 012737 177777 001254 65$: MOV #~1,RELERR SET “RELEASE ERROR’ INDICATOR 
046110 012760 000011 000000 MOV a1 RACE] (RO) [CLEAR THE DRIVE 
046116 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
046126 013797 001170 001126 66$: MOV $TMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
0461 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT R 
046142 042737 100000 001126 BIC HATA, $BDDAT ‘DON'T CHECK THE ATTN BIT 
046150 023737 001124 001126 CMP S$GDDAT,$BDDAT ALL BITS OK ? 
046156 001401 BEQ 67$ *BR IF OK FROM PORT A. 
046160 104007 EMT 
046162 013737 001172 001126 67$: MOV $TMP3,SBDDAT | ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
046170 013737 001226 001240 MOV PORTB,PTNBR ; CHANGE PORT NUMBER 
046176 042737 100000 001126 BIC #ATA, $BDDAT “DON'T CHECK THE ATTN BIT 
046204 023737 001124 001126 CMP S$GDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
046212 001401 BEQ 68$ ‘BR IF OK 
046214 104007 EMT ? 
046216 000240 68$: NOP 
046220 000004 SCOPE :LOOP ? 
1558 
1234 FRARRRE EERE EERE ERRREERE EERE REE RARERREERERRRERAERRRERRRERE RES 
;STEST 35 PORT 'B' ALTERNATE ATTENTION PATH TEST 
< SVERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
b ** 
t® A, SET THE ATTENTION BIT FOR PORT ‘B’. 
se 
t® B. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
3* 
:* C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
7* FOR THE DRIVE IS SET. 
*® 
*; : RARER EREEEREERAEREREREEREKEERREEEREREEREKREREREEKE 
046222 1ST35: 
005737 001300 TST KYBCTL ; PERFORMING ONLY SINGLE TEST ? 
001406 BEQ 2$ ‘BR T 
100002 BPL 1$ 3BR if JUST ENTERED TEST 
000137 003062 JMP EXEC “RETURN & GET NEXT TEST NUMBER 
012737. 177777 001300 1$: MOV CTL *SET SINGLE TEST INDICATOR 
012737 046260 001106 2$: MOV aTEST See $LPADR :SETUP SCOPE LOOP ADDRESS 
012737 046260 001110 week MOV ATEST35.$LPERR :SETUP ERROR LOOP ADDRESS 
112737 000035 001102 MOVB #35, $TSTNM sMOVE #35 TO TEST NUMBER 
012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
012737 000012 001176 MOV #10... $TIMES +:D0 10. ITERATIONS 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
113760 001224 000010 MOVB _— PORTA, RMCS2(RO) SELECT PORT HA 
005060 000012 CLR RMDS (RO) ‘SEIZE THE DRIVE 
012760 000011 000000 MOV #11,RMCS1(RO) ISSUE Drive CLEAR 
012760 900013 000000 MOV #13.RMCS1(RO) REL LEASE THE DRIVE 
113760 001226 000010 MOVB PORTS. RMCS2(RO) :SELECT PORT #8 
005060 900012 CLR RMDS (RO) SEIZE THE RORIVE THROUGH PORT 'B' 
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6340 012760 000611 000000 MOV W11,RMCS1(RO) ISSUE DRIVE CLEAR 
046346 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
046354 113760 001 36 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
046362 012760 177 000014 MOV #-1,RMER1(RO) ;SET ERRORS TO FORCE ATIN BIT ON PORT B 
046379 005060 000014 CLR RMER1 (RO) SCLEAR THE ERR ORS 
046374 113760 061224 000010 MOVB PORTA, RMCS2(RO) “;SELECT PORT A 
046402 005760 000012 1$: TST RMDS (RO) WAIT FOR DRIVE TO RETURN. TO. NEUTRAL 
046406 001775 BEQ 1$ ‘BR IF STILL SEIZED BY PORT B 
046410 012737 900016 001122 MOV #RMAS,SBDADR =: FORM Rh ADDRESS OF ATTN REG IF ERROR 
046416 960037 00112 ADD RO, $BDADR tADD THE ADDRESS BASE 
046622 013737 001236 001124 MOV ASR1, $GDDAT :GOOD DATA FOR ERROR MESSAGE 
046430 013737 001236 001166 MOV ASR *STMP1 “MAKE DATA COMPARE MASK 
046436 005137 0011 COM MP4 : COMPLEMENT IT 
046442 012737 046476 001110 MOV 8, SLPE OAD LOOP ON ERROR ADDRESS 
046450 113760 001224 000010 MOVB _—sC— PORTA, Recs 2 (RO) ELECT A 
046456 013737 001224 001240 MOV PORTA, PTNBR 0) vies ORT ADDRESS TO LOCATION FOR TYPEOUT 
046464 013737 001224 001242 MOV PORTA, SEIZPT SEIZED" T ADDRESS 
046472 005060 000012 CLR RMDS (RO) SERIE THE DRIVE THROUGH PORT 
6476 016037 000016 001126 2$: MOV RMAS(RO), SBDDAT “GET THE CONTENTS OF THE ATTENTION REG 
046504 013737 001126 001164 MOV SBDDA T,$TMPO =: PUT CONTENT S INTO WORKING LOCATION 
046512 043737 001166 001164 BIC ATs MPO [CLEAR OTHER BITS 
046520 023737 001124 001164 CMP oat. STMPO +SEE IF ATTN BIT FOR DRIVE SET 
046526 001401 BEQ 3$ :BR IF SET 
046530 104053 EMT 53 
046532 3$: 
sRELEASE THE DRIVE FROM PORT A 
046532 113760 001224 000010 MOVB _— PORTA, RMCS2(RO) SELECT PORT 
046540 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
046546 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT A 
VERIFY THAT 1HE DRIVE IS STILL IN NEUTRAL 
046554 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ° INDICATOR 
6560 012737 000012 001122 MOV WRMDSSBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
046566 060037 001122 ADD RO, $BDA ;ADD THE 1/0 BASE ADDRESS 
046572 012737 011700 001124 MOV #MOL!PGM!DPR!DRY! W/SGDDAT # COMPARISON CONSTANT 
6600 113760 001224 000010 MOVB = PORTA, RMCS2(RO) : SELECT 
046606 016037 000012 001170 MOV RMDS(R 0) ,STMP2 “GET THE PORIVE “STPfUS REGISTER FROM PORT A. 
046614 042737 024001 001170 BIC #PIP!WRL ‘OM, STMP. SCLEAR DCT CARES 
046622 013737 001170 001164 MOV STMP2,STMPO ;COPY IT INTO *$TMPO 
046630 042737 100100 001164 BIC WATA!VV,$TMPO =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
6636 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT 8. 
046644 016037 000012 001172 MOV RMDS (RO) , STMPS “GET THE PORIVE STATUS REGISTER FROM PORT B. 
046652 042737 024001 001172 BIC #PIP'WRL'OM,STMPS CL ONT CARES 
6660 013737 001172 001166 MOV STMP3,STMP1 7COPY IT’ INT "$TMP1° 
042737 100100 001166 BIC WATA'VV,$TMP1 :CLEAR PORT DEP ENDENT BITS FROM THE COPY 
046674 023737 001164 001166 CMP STMPO,STMP1 t1§ THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
046702 001006 BNE 64$ BR I 
6704 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
046710 001045 BNE 66$ ‘BR IF NOT 
046712 104046 EMT 46 
046714 000137 047114 JMP 68$ sBYPASS THE REST OF THE CHECKS 
046720 013737 001170 001126 64$: MOV $TMP2,$BDDAT  :SET UP POS SIBLE BAD DATA FOR ERROR MESSAGE 
046726 013737 001226 001240 MOV PORTB.PTNBR * SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
046734 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
046742 005737 001164 TST $TMPO *SEE IF STATUS EQ 0 FROM PORT A. 
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046746 001414 BEQ 65$ :BR IF ZERO | 
046750 013737 001224 001240 MOV PORTA.PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
046756 013737 001172 001126 MOV $TMP3,$BD :*BAD DATA’ F FOR ERROR TYPE OUT 
6764 113760 001224 000010 PORTA, + Ries? (RO) *SELECT PORT 
046772 005737 001166 TST STMP1 [SEE IF eoarUs "EQ ZERO FROM PORT B. 
046776 90101¢ BNE 66$ ‘BR IF NO 
7 012737 177777 001254 65$: MOV #-1,RELERR SET “RELEASE ERROR' INDICATOR | 
7 012760 000011 000000 MOV qi “RMCS1(RO)  :CLEAR THE DRIVE 
047014 912760 000013 000000 MOV #13.RMCS1(RO) :RELEASE THE DRIVE 
047026 013737 001170 001126 66$: MOV STMP2,$BDDAT  ; LOOK FOR BIT FAILURES WHEN RMDS READ 
047032 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE P R 
047040 042737 100000 001126 BIC HATA, $BDDAT ON'T CHECK THE ATTN BIT 
7046 023737 001124 001126 CMP SGDDAT, $BDDAT ati BITS OK 
047054 001401 BEQ 67$ ‘BR IF OK OKon PORT A 
047056 104007 EMT ? 
047060 013737 001172 001126 67$: MOV $TMP3,S$BDDAT | ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
047 013737 001226 001240 MOV PORTB,PTNBR *CHANGE PORT NUMBER 
047074 042737 100000 001126 BIC HATA, $BDDAT [DON'T CHECK THE ATTN BIT 
047102 023737 001124 001126 CMP SGDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
047110 001401 BEQ 68$ :BR IF OK 
047112 104007 EMT 7 
047114 000240 68$: NOP 
047116 000004 SCOPE :LOOP ? 
1584 
1255 {ERR RERERRERRERERRERERERERERERRERERERRERERERRERRERER RE 
;STEST 36 SET ATTENTION ‘A* BY COMMMAND TEST 
:ATEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
se COMMAND . 
z* A. ISSUE A OFFSET COMMAND THROUGH PORT 
z@ 
i* B. WAIT FOR THE pOFESET COMMAND TO COMPLETE ("DRY* TO BECOME 
* "). VERIFY THAT THE ATTENTION BIT FOR PORT ‘A’ IS SET AND 
ie THAT THE RI TENTION BIT FOR PORT 'B’ IS NOT SET. 
3* 
t® (C. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE RETURNED 
i* TO NEUTRAL AND THAT NEITHER ATTENTION BIT JS SET. 
** 
*: REE EEEEREEEEEREEREEREREREEEEEEEEEEEEKKEEEEERRKRER’: REKKKE 
047120 15136: 
047120 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
047124 001406 BEQ 2$ F NOT 
047126 100002 BPL 1$ “BR IF JUST ENTERED TEST 
047130 000137 003062 JMP EXEC [RETURN & GET NEXT TEST NUMBER 
047134 012737 177777 001300 1$: MOV *SET SINGLE TEST INDICATOR 
047142 012737 047156 001106 2$: MOV aTESt See SLPADR [SETUP SCOPE LOOP ADDRESS 
047150 012737 047156 001110 seta MOV ATEST36,$LPERR :SETUP ERROR LOOP ADDRESS 
047156 112737 000036 001102 MOVB «#36, STSTNM sMOVE #36 TO TEST NUMBER 
047164 012706 001100 MOV WSTACK, SP *LOAD THE STACK POINTER 
047170 012737 000012 001176 MOV #10. ,STIMES +:D0 10. ITERATIONS 
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047302 
047310 


047312 
047316 
047324 
047332 


047422 
047430 
047436 


047444 


0 
047512 


oy 
_ 
“ 
S 


S=SsSs 


oo-0oo 
paar ear Ser pert 


012760 


032760 
001774 


001224 


000015 


000200 


001250 


001124 
001126 
100000 
001174 


001250 


001224 
001224 
000013 


001254 


001170 


000010 
000000 
000000 
000010 


000000 


001242 


000000 


000012 


001124 


000010 
001240 
000000 


001122 


001124 
000010 
001170 
001170 
001164 


:CLEAR ATTENTION BITS FOR BOTH PORTS 
PORTA, RMCS2(RO) 
RMDS (RO) 


#11 ,RMCS1(RO) 
#13 =RACSI (RO) 


PORTS MCS2(RO) ; 
PR6) 


RMDS 
At Bek bl 4 
RMCS1( 


RO) 
oratne RACSE(RO) 
PORTA, 


NBR 
PORTA,SEIZPT ~ 


3D0 A OFFSET THROUGH PORT A 


MOV 


#15,.RMCS1(RO) 


zWAIT FOR DRIVE TO FINISH 


BIT 
BEQ 


 etaimbcame: 


SELECT PORT #A 

7SEIZE THE DRIVE 

ZISSUE DRIVE CLEAR 

;RELEASE THE DRIVE 

7SELECT PO 

sSEIZE i, 8 onive as THROUGH PORT ‘B’ 


sREL 

; SELECT 
move PORT ADDRESS TO LOCATION FOR TYPEOUT 
:"SEIZED* PORT ADDRESS 


ISSUE A OFFSET INSTRUCTION THROUGH PORT A 


sWAIT FOR DRIVE TO FINISH 
7BR IF NOT FINISHED 


CONFIRM THAT ATTENTION IS SET FOR PORT A 


64$: 


CKERR 
RMDS(RO), a 
#RMDS, SBDA 


RO, $BDA 

#ATA, SCDDAT. 
SBDDAT, Po 
#*CATA, STMPO 
SGDDAT, *STMP 
SBDDAT, $TMP4 
HATA, STMP4 
$TMP4 , $GDDAT 


CKERR 


PADD 
;WHAT REGISTER S 


CLEAR THE ‘CHECK ERROR’ INDICATOR 
3GET CONTENTS OF 
poll ay! diy ADDRESS OF ERROR MESSAGE 
/RM eh ADDRESS 


HOULD BE 
REGISTER CONTENTS TO ‘STMPO* 


MOVE 
:SAVE SPECIFIED BITS 
;COMPARE THE BITS 


F OK 
:COPY "BAD DATA’ 
ZCLEAR THE MASKED BITS 
:"OR’ WITH GOOD DATA FOR TYPEOUT 


3SET THE REGISTER COMPARE ERROR INDICATOR 


;RELEASE THE DRIVE FROM PORT A 


3 VERIFY 


MOVB 
MOV 
MOV 


PORTA, RMCS2(RO) 
PORTA,PTNBR ; 
#13,.RMCS1(RO) 


;SELECT PORT 
PORT ADDRESS TO LOCATION = TYPEOUT 


Vv 
ISSUE RELEASE THROUGH PORT A 


THAT THE DRIVE IS STILL IN NEUTRAL 


RELERR 
aa sab - $BDADR 


7CLEAR_ THE ‘RELEASE ERROR * INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
1/0 BASE ADDRESS 


DAD :ADD_ THE 
#MOL!PGM'DPR!DRY!VV, rag lh YS tahoe CONSTANT 
PORTA, RMCS2 (RO) iSECECT P 


RMDS(RO) -STMP2 
MP2 


#PIP'WRL'OM, 


$T 
STMP2,STMPO 


GET THE DRIVE "STATUS REGISTER FROM PORT A. 
sCLEAR DONT CARES 
;COPY IT INTO *STMPO' 


SEQ 0129 


C2 
Té 





a F 
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047520 942737 100100 01164 BIC  - WATA!VV,S$TMPO —; CLEAR_PORT DEPENDENT BITS FROM THE COPY 
047526 113760 001226 00001 MOVE PORTE, RACS2(RQ) iSELE T PORT | 
047554 016037 00012 00117 MOV ——-RMDS(RO) , STMP T THE DRIVE STATUS REGISTER FROM PORT B. 
047542 042737 024001 00117 BIC | MPIBIURLION,STMPS -CLEAR ARES | 
047550 013737 001172 001166 MOV TMP3,$TMP1. =; COPY IT "$TMP1* | 
047596 042737 100100 001166 BIC #ATALW $TMP1  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
047564 0237357 001164 001166 CMP MPO, STMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
047372 001006 BNE 668 IF_NOT 
047574 005737 001164 TST — $TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 

7600 001045 BNE  68$ :BR IF NOT 
047602 104046 EMT = 46 

7604 000137 047770 JMP = 70$ ;BYPASS THE REST OF THE CHECKS 
047610 013737 001170 001126 668: MOV § $TMP2,$BDDAT SET _UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
047616 013737 001226 001240 MOV —- PORTB, PTNBR i SEIZING | PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

7624 113760 001226 000010 MOVB § PORTB;RMCS2(RO) :SELECT PORT B. 
047632 005737 001164 TST —- $TMPO SEE IF STATUS EQ O FROM PORT A 

7636 001414 BEQ = 67$ 3BR IF ZERO 
047640 013737 001224 001240 MOV PORTA,PTNBR :$ SEIZING Ay! IF TEST vos DRIVE NOT IN NEUTRAL 

7646 013737 001172 001126 MOV $TMP3,$BDDAT ;°BAD DATA’ fr ERROR TYPE OUT 
047654 113760 001224 000010 MOVB PORTA,RMCS2(RO) SELECT PORT A 
047662 005737 001166 TST - $TMP1 TSEE IF STATUS EQ ZERO FROM PORT B. 

7 001012 BNE 68$ ;BR_IF _NO 
047670 012737 177777 001254 67S: MOV #~1,RELERR SET he ERROR INDICATOR 
047676 012760 000011 000900 MOV #TTCRMCS1(RO) CLEAR THE DRIVE 
047708 oierse 000013 000000 oay #13.RMCS1(RO) TRELEASE” THE DRIVE 
047714 013737 001170 001126 68$: MOV STMP2 ,SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
047722 013737 001224 001240 MOV  - PORTA,PTNBR ==; CHANGE_PORT NUMBER 

7730 023737 001124 001126 CMP SGDDAT,S$BDDAT ALL BITS Ok ? 
047736 001401 BEQ 69$ [BR IF OK FROM PORT A. 
047740 104007 EMT = 7 
047742 0137357 001172 001126 69$: MOV sane eee 2 CHECK ae B+ BIT FAILURES - FROM PORT B. 
047750 013737 001226 001240 MOV ORTB,PT :CHANGE PORT NUMBER 
047756 023737 001124 001126 CMP SGDDAT, SBDDAT 7SEE IF READ OK FROM PORT B. 
047764 001401 BEQ = 708 :BR IF OK 
047766 104007 EMT = 7 
047770 000240 70$: NOP 
047772 113760 001226 000010 MOVB PORTB, a ;SELECT PORT B 
05 013737 1226 001249 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CONFIRM THAT ATTENTION IS NOT SET FOR PORT B 

050006 005037 001250 CLR —-CKERR CLEAR THE "CHECK ERROR’ INDICATOR 
050012 016037 Bots 001126 MOV RMDS (RO) , SBDDAT “GET CONTENTS OF RMDS 
050020 012737 000012 001122 MOV #RMDS , SBOADR oie gv ADDRESS OF ERROR MESSAGE 
050026 060037 001122 ADD — RO, SBDADR RM BASE ADDRESS 
050032 005037 001124 CLR - $GDDAT MAT REGISTER SHOULD. BE 
050036 013737 001126 001164 MOV — $BDDAT .STHPO {MOVE REGISTER CONTENTS TO *STMPO' 
950044 042737 077777 901164 BIC  - #*CATA;STMPO SAVE SPECIFIED BITS 
050052 023737 001124 001164 CMP $GDDAT,$TMPO ° ;COMPARE THE BITS 
050060 001414 BEQ. 71 :BR_IF Ok 
050062 013737 001126 001174 MOV  SBDDAT,STMP4 =; COPY "BAD DATA" 
050070 042737 100000 001174 BIC HATA, STMP4 CLEAR THE MASKED BITS 
g2nure Fate LA 001174 001124 eat $TMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
020106 O0si3? 001250 COM - CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
050112 000240 71$: NOP 


“a 
om 
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050114 000004 SCOPE :LOOP ? 
188 
1306 {RARER RARERERREREEERERRRREEERRAERERRRERERERREREREERRERRRERRRRER ES 
jSTEST 37 SET ATTENTION 'B' BY COMMMAND TEST 
SATEST THE OPERATIO OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
: COMMAND. 
*® 
t® A. ISSUE A RECALIBRATE COMMAND THROUGH PORT 'B'. 
3* 
i* B. WAIT FOR THE /RECALIBRATE COMMAND TO COMPLETE ('DRY' TO BECOME 
te *1'), VERIFY THAT THE ATTENTION BIT FOR PORT 'B’ IS SET AN 
ie THAT THE ATTENTION BIT FOR PORT 'A' IS NOT SET. 
3* 
t® (C, RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE RETURNED 
te TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
°t 
° 2 RRA ARAARARRAEREREEAEEEERAAERRAEAERAERAREERERAERKEREEREEKEREEEEE 
050116 18137: 
050116 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
050122 001406 BEQ 2$ IF N 
050124 100002 BPL 1$ tBR IF JUST ENTERED TEST 
050126 000137 003062 JMP EXEC SRETURN & GET NEXT TEST NUMBER 
050132 012737 177777 001300 1$: MOV CTL ‘SET SINGLE TEST INDICATOR 
050140 012737 050154 001106 28: MOV ares ee. SLPADR :SETUP SCOPE LOOP ADDRESS 
050146 012737 050154 001110 — MOV #TEST37.$LPERR :SETUP ERROR LOOP ADDRESS 
050154 112737 000037 001102 “ MOVB «#37, STSTNM MOVE #37 TO TEST NUMBER 
050162 012706 001100 MOV #STACK,SP AD THE STACK POINTER 
ae 050166 012737 000012 001176 MOV #10. ,STIMES D0 10. ITERATIONS 
1305 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
050174 113760 001224 000010 MOVB —- PORTA,RMCS2(RO) ;SELECT PORT #A 
050202 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE 
050206 012760 000011 000000 MOV #11,RMCS1(RO)  :ISSUE DRIVE CLEAR 
050214 012760 000013 000000 MOV #13.RMCS1(RO) RELEASE THE DRIVE 
050222 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT 4B 
050230 005060 00001 CLR RMDS (RO) SEIZE THE DRIVE THROUGH PORT 'B’ 
050234 012760 000011 000000 MOV ae RCS (RO? Z1SSUE D RIVE CLEAR 
050242 01 760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
050250 11 26 001226 000010 MOVB PORTE. Teese cROD -SELECT PORT B 
050256 013737 001226 001240 MOV PORTB.PINBR 0) vies PORT ADDRESS TO LOCATION FOR TYPEOUT 
050264 013737 001226 001242 MOV PORTB,SEIZPT ;"SEIZED' PORT ADDRESS 
;D0 A OFFSET THROUGH PORT B 
050272 012760 000015 000000 MOV #15,RMCS1(RO) ;ISSUE A OFFSET INSTRUCTION THROUGH PORT B 
:WAIT FOR DRIVE TO FINISH 
050300 032760 000200 000012 BIT #DRY.RMDS(RO)  ;WAIT FOR DRIVE TO FINISH 
1774 BEQ 6 ‘BR IF NOT FINISHED 
SAS ied Ree 
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;CONFIRM THAT ATTENTION IS SET FOR PORT B 


| 
050310 005037 001250 CLR CKERR sCLEAR THE ‘CHECK ERROR’ INDICATOR | 
050314 016037 000012 001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF Ri | 
050322 012737 000012 001122 MOV #RMDS ,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE | 
050530 060037 00112 ADD RO, SBDADR zADD_RH/RM BASE ADDRESS 
050334 012737 100000 001124 MOV WATA,S$GDDAT_ ;WHAT REGISTER SHOULD BE 
050342 013737 001126 001164 MOV SBDDAT STM sMOVE REGISTER CONTENTS TO ‘$TMPO' 
050350 ef te Ua 077777 001164 BIC #*CATA,STMPO ;SAVE SPECIFIED BITS 
050356 023757 001124 001164 cMP SGDDAT ,STMPO COMPARE THE BITS 
050364 001414 BEQ 6 3 F OK 
050366 013737 001126 001174 MOV SBDDAT ,STMP4 :COPY "BAD DATA’ 
050374 042737 100000 001174 BIC HATA, STMPG ;CLEAR THE MASKED BITS 
050402 053737 001174 001124 BIS $TMP4 ,$GDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
050410 104032 EMT 32 
050412 005137 001250 COM CKERR 7SET THE REGISTER COMPARE ERROR INDICATOR 
050416 000240 64$: NOP 
sRELEASE THE DRIVE FROM FORT B 
050420 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
050426 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
050434 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
050442 005037 001254 CLR RELERR ;CLEAR THE ‘RELEASE ERROR ° INDICATOR 
050446 012737 00012 001122 MOV #RMDS , SBDADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
050454 060037 001122 ADD RO, $BDAD jADD THE 1/0 BASE ADDRESS 
50460 012737 011700 001124 MOV #MOL.PGM!DPR!DRY!VV,$GDDAT _;COMPARISON CONSTANT 
050466 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
50474 016037 000012 001170 MOV RMD F ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
050502 042737 024001 001170 BIC #PIP!WRL!OM,STMP sCLEAR DONT CARES 
050510 013737 001170 001164 MOV STMP2,STMPO ;COPY IT INTO °STMPO' 
050516 042737 100100 001164 BIC WATA!VV,STMPO  ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
050524 113760 001226 000010 PORTB Bee ey SELECT PORT 8B. 
050532 016037 000012 001172 MOV RMDS ( ‘ MP3 ;GET THE DRIVE STATUS REGISTER FPOM PORT B. 
050540 042737 024001 001172 BIC #PIP!WRL!OM, 7CL DONT CARES 
050546 013737 001172 001166 MOV STMP3, sCOPY IT INTO *S$TMP1' 
050554 ete 100100 001166 BIC MATA'VV,STMP1  ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
050562 023737 001164 001166 CMP STMPO,STMP1 71S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
050570 001006 BNE 66$ :BP IF NOT 
050572 0057357 001164 TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
050576 001045 BNE 68$ 3BR IF NOT 
050600 106088 EMT 4 
050602 000137 050766 - JMP 70$ s;BYPASS THE REST OF THE CHECKS 
050606 013737 001170 001176 668: MOV STMP2 , SBDDAT 3SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
050614 013737 001226 001740 MOV PORTB,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
050622 113760 001226 060010 MOVB PORTB,RMCS2(RO) ;SELECT PORT 8B. 
050630 005737 001164 TST $TMPO 3SEE_ IF STATUS EQ 0 FROM PORT A. 
050634 001414 BEQ 67$ 3BR IF ZER 
050636 013737 Oot aes 001240 MOV PORTA,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
050644 013737 001172 001126 MOV STMP3,SBDDAT ;"BAD DATA’ FOR ERROR TYPE OUT 
050652 A12760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
050660 0057 001166 TST STMP1 :SEE IF STATUS EQ ZERO FROM PORT 8. 
050664 OO10Ie BNE 68$ 3BR_IF NOT 
050666 012737 177777 001254 67S: MOV #-1,QELERR 3SET "RELEASE ERROR® INDICATOR 


amo 
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050674 012760 poo 000008 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
82070 oie 730 00013 00000 ead #13. RMCS1(RO) SRELEASE THE DRIVE 
O207 16 0137 $ ABTA, 001126 68$: MOV $TMP2,SBDDAT ;LOOK FOR oir tL WHEN RMDS READ 
0507 Eee \¢6 001240 MOV PORTA,PTNBR + CHANGE PORT NUMBER 
050726 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
0507 001401 BEQ 9$ ‘BR IF OK FROM PORT A. 
050736 A007 EMT 
050740 013737 001172 001126 69S: MOV STMP3,$BDDAT CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
050746 013737 001226 001240 MOV PORTB,PTNBR : CHANGE PORT E 
050754 023737 001124 001126 CMP SGDDAT, SBDDAT SEE IF READ OK FROM PORT B. 
050762 001401 BEQ 70$ [BR IF OK 
050764 104007 EMT 7 
050766 990628 70$: NOP 
050770 113760 001224 000010 MOVB sd rd 5 Nae sSELECT POR 
050776 013737 001224 001240 MOV PORTA,PTNBR MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CONFIRM THAT ATTENTION IS NOT SET FOR PORT A 
051004 005037 1250 CLR CKERR ;CLEAR THE eae ERROR*® INDICATOR 
051010 016037 000012 001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMD 
051016 012737 000012 001122 #RMDS, $BDAD ADR FORM g bot Uy eg te OF ERROR MESSAGE 
051024 060037 001122 ADD RO, SBDADR z;ADD RH/RM BASE ADDRESS 
051030 005037 001124 CLR $GD DAT WHAT REGIS? ER SHOUL LD BE 
051034 013737 001126 001164 MOV SBDDAT,.STMPO *MOV — REGISTER CONTENTS TO ‘$TMPO’ 
051042 042737 077777 001164 BIC #*CATA, *$TMPO SAVE algal BITS 
051050 023737 001124 001164 CMP SGDDAT ,STMPO + COMPAR E THE BITS 
051056 001414 BEQ IF OK 
051060 013737 001126 001174 MOV yap & STMP4 :COPY "BAD DATA‘ 
051066 042737 100000 001174 BIC HATA, STMP4 CL EAR THE MASKED BITS 
051074 053737 001174 001124 BIS STMP4, SGDDAT :'OR* WITH GOOD DATA FOR TYPEOUT 
051102 104032 EMT 32 
051104 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
051110 000240 71$: NOP 
051112 000004 SCOPE ;LOOP ? 
13% 
py ah FERRARA RARR AREA A RARER AE CREAR RAEAERARRAARRRARAERRR AERA A EAE 
132 ze 
:sVERIFY THAT A CHANGE IN UNIT READY SETS THE ATTENTION 
3* FOR BOTH PORTS. 
se 
seTHIS FUNCTION IS PERFORMED DURING THE SET VOLUME VALID TEST. 
133! EPP PTTTTTTTeTerTTTTTeTrrrerrrrervirririrt itt ttt t titties 
132 
1331 
1338 "eteatet tate aiaaeaa eam ieee, 
13 


7 VERIFY THAT ATTENTION SETS WHEN THE DRIVE SWITCHES AFTER 
; #BE ING RELEASED. 


jATHIS IS PERFORMED DURING THE ‘‘SET PORT REQUEST TEST"’ 


:* 
1334 RRAAARAAAAAAAAAEAAAAAAAAAAAAAAAAAA RATA AAAA AAA AAA AA Ae AAA AAS 
13 


—— 
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7 SET ATTENTION ‘B® BY C 
1356 
1357 eweel 40, PORTA’ SET VALUE ALD EST. 
*TEST 40 PORT SET VOLUME VALID TEST 
i eVERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 
oe 
:* A. WITH PORT ‘A’ SELECTED, RESET AND SET ‘MUR’’ IN RMMR1, 
3* USING fy ee MODE. VERIFY THAT THE DRIVE 
3* IS SEIZED AND THAT “VOLUME VALID’ IS RESET AND 
3% ATTENTION IS SET. 
°* 
:* B. ISSUE A eee CLEAR COMMAND AND A_READ . PRESET 
3* C DRIVE THAT WAS SEIZED IN STEP A. 
3* verity THAT TATTENTION 1S RESET AND THAT VOLUME VALID 
3* ° 
3* 
3* C. ate THE sf ae FROM PORT ‘A* AND SELECT THE —s FOR 
34 "B*. VERIFY THAT ATTENTION IS STIL SET AND T 
a VOLUME VALID IS STIL RESET. 
* D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 
:* PORT ‘B' THEN RELEASE PORT ‘B’. 
22 « LARERRRERARERERRERREEEEEEERARRERERERERERRERERAARRERRERARE REE ERe 
051114 TST40: 
051114 005737 001300 TST KYBCTL ; PERFORMING ONLY SINGLE TEST ? 
051120 001406 BEQ 2s 
051122 100002 BPL 1$ ‘BR IF JUST wing TEST 
051124 000137 003062 JMP < TRETURN @ GET NEXT TEST NUMBER 
051130 012737 177777 001300 1$: MOV #-1,KYBCTL SSET SINGLE TEST INDICATOR 
051136 012737 051152 001106 2$: MOV aTES TOO. SLPADR SETUP SCOPE LOOP ADDRESS 
g21483 012737 051152 001110 TEST4O MOV #TEST4O,SLPERR ZSETUP ERROR LOOP ADDRESS 
051152 112737 000040 001102 " MOVB #40, STSTNM sMOVE #40 TO TEST NUMBER 
051160 012706 001100 MOV #STACK,SP sLOAD THE STACK POINTER 
1358 051164 012737 000012 001176 MOV #10. ,STiMES 3:D0 10. ITERATIONS 
1399 
eet PORT A BY WRITING THE MAINTENANCE REGISTER, RMMR1. SET 
AND RESET ‘MUR’' TO CAUSE VOLUME VALID TO RESET AND ATTENTION TO SET. 
mute THE DRIVE THROUGH PORT A 
051172 113760 001224 000010 MOVB PORTA, we Se tno ;SELECT PORT 
051200 013737 001224 001242 MOV PORTA. SEIZP STORE ag tt PORT® S ADDRESS 
051206 012760 000001 000024 MOV #DMD RRR (ROD WRITE DMD INTO 1 
051214 013737 001226 001244 MOV P P OPPOSITE’ PORT ADDRESS 
051222 012760 001001 000024 MOV alt ag 3SET UNIT READY 
051230 012760 000000 000024 MOV #0,RMMR1 (RO) RESET DIAGNOSTIC MODE 
VERIFY THAT ATA = 1,VV = 0 FOR PORT 
051236 005037 001250 CLR 3CL LEAR THE "CHECK ERROR® INDICATOR 
051242 016037 000012 001126 MOV pan dig LF SBDDAT ;GET CONTENTS OF RMDS 
051250 012737 000012 001122 MOV RMDS,$BOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
051256 060037 001122 ADD SEDADR 3;ADD RH/RM BASE A we ESS 
051262 Oigses 100000 001124 MOV a0 $6 $GDDAT_ ;WHAT REGISTER SHOULD BE 
051270 013737 001126 001164 MOV SBDDAT ,STMPO sMOVE REGISTER CONTENTS TO ‘STMPO' 
b21¢76 042737 077777 001164 BIC #°CATA.STMPO SAVE sree tue BITS 
051304 023737 001124 001164 CMP SGDDAT.$TMPO COMPARE THE BITS 





am 
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051312 001414 BEQ 66$ :BR IF OK 
051314 013737 001126 001174 MOV SBDDAT.$TMP4 § COPY “BAD DATA’ 
051322 042737 100000 001174 BIC HATA, STMPG [CLEAR THE MASKED BITS 
051330 0337 7 001174 001124 BIS STMP4 ,SGDDAT :*OR’ WITH GOOD DATA FOR TYPEOUT 
051340 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
051344 000240 66$: NOP 
051346 005037 001250: CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
051352 016037 000012 001126 MOV RMDS(RO),$BDDAT ';GET CONTENTS OF R 
051360 012737 000012 001122 MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
051366 060037 00112 ADD RO, $BDADR sADD RH/RM BASE ADDRESS 
051372 005037 001124 CLR $GDDAT SWHAT REGISTER SHOULD BE 
051376 013737 001126 001164 MOV SBDDAT.$TMPO | :MOVE REGISTER CONTENTS TO ‘$TMPO' 
051404 042737 177677 001164 BIC W°CVV,$TMPO :SAVE SPECIFIED BITS 
051412 023737 001124 001164 CMP SGDDAT,$TMPO  ;COMPARE THE BITS 
051420 001414 BEQ [BR IF OK 
051422 013737 001126 001174 MOV SBDDAT.$TMP4 = COPY ‘BAD DATA’ 
051430 042737 000100 001174 BIC WVV,STMPS ‘CLEAR THE MASKED BITS 
031456 053737 001174 001124 BIS STMP4,$GDDAT | :*°OR’ WITH GOOD DATA FOR TYPEOUT 
051446 605137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
051452 000240 68$: NOP 
s ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT A 
051454 012760 000011 000000 MOV #11,RMCS1(RO) :DRIVE CLEAR 
051462 012760 000021 000000 MOV #21.RMCS1(RO) [READ IN PRESET 
:VERIFY ATA = 0 AND VV = 1 FOR PORT A 
051470 005037 001250 CLR CK sCLEAR THE ‘CHECK ERROR’ INDICATOR 
051474 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF 
051502 012737 000012 001122 MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
051510 060037 001122 ADD RO, $BDADR sADD RH/RM BASE ADDRESS 
051514 012737 000100 001124 MOV #VV,$GDDAT ;WHAT REGISTER SHOULD BE 
051522 013737 001126 001164 MOV SBDDAT.$TMPO. ;MOVE REGISTER CONTENTS TO ‘STMPO' 
051530 042737 177677 001164 BIC W°CVV,$TMPO ;SAVE SPECIFIED BITS 
051536 023737 001124 001164 CMP SGDDAT,$TMPO  ;COMPARE THE BITS 
051544 001414 BEQ 7 [BR IF OK 
051546 013737 001126 001174 MOV SBDDAT,$TMP4 § :COPY ‘BAD DATA’ 
051554 042737 000100 001174 BIC #VV,STMPS ‘CLEAR THE MASKED BITS 
051962 093737 001174 001124 BIS $TMP4,$GDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
051572 005137 001250 COM CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 
051576 000240 70$: NOP 
051600 005037 001250 CLR CKERR sCLEAR THE ‘CHECK ERROR’ INDICATOR 
051604 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF 
051612 012737 000012 001122 MOV #RMDS,$BDADR ;:FORM REGISTER ADDRESS OF ERROR MESSAGE 
051620 060037 001122 ADD RO, SBDADR zADD_RH/RM BASE ADDR 
051624 012737 011700 001124 MOV #MOL'PGM'DPR'DRY!VV,$GDDAT ;WHAT REGISTER SHOULD BE 
051632 012737 001126 001164 MOV SBDDAT, $TMP SMOVE REGISTER CONTENTS TO ‘STMPO* 
051640 042737 024007 001164 BIC #°C153770,$TMPO ;SAVE SPECIFIED BITS 
051646 023737 001124 001164 CMP SGDDAT,S$TMPO § ;COMPARE THE BITS 
051654 001414 BEQ 72$ : OK 
051656 013737 001126 001174 MOV SBDDAT,STMP4S § ;COPY “BAD DATA’ 
051664 042737 153770 001174 BIC #153770,$TMP4 ;CLEAR THE MASKED BITS 
051672 093737 001174 001124 BIS STMP4,$GDDAT  :°OR' WITH GOOD DATA FOR TYPEOUT 
051702 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
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051706 000240 72$: NOP 


;RELEASE PORT A AND SELECT PORT B 
[VERIFY THAT ATA = 1 AND VV = 0 FOR PORT B 


RELEASE THE DRIVE FROM PORT A 


951710 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
051716 013737 001224 001240 MOV PORTA,PTNBR ;MOV vé PORT ADDRESS TO pagel ‘e TYPEOUT 
051724 012760 13 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH POR 

:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
051732 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR 
051736 012737 000012 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
051744 060037 001122 ADD RO, SBDADR [ADD THE J/0 BASE ADDRESS 
051750 012737 011600 001124 MOV #MOL ! PGM:DPR!DRY. SGDDAT ; COMPAR ISON CONSTANT 
051756 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
051764 016037 000012 001170 MOV RMDS (RO) ) «STMP2 “GET THE DRIVE “STATUS REGISTER FROM PORT A. 
051772 042737 024001 901170 BIC #PIr 'WRL'OM,STMP2 AR DONT CARES 
052000 013737 001170 001164 MOV STMP2, STHPO COPY Y 1T INTO *STMPO' 
052006 042737 100100 001164 BIC WATA!VV,$TMPO =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
052014 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT P 
052022 016037 000012 001172 MOV RMDS (RO) , STMP MP3 :GET THE DRIVE “STATUS REGISTER FROM PORT B. 
052030 042737 024001 001172 BIC #PIP'WRL'OM,$T Tp” EAR DONT CARES 
052036 013737 001172 001166 MOV $TMP3,$T 3COPY IT “INTO ‘STMPI* 
052044 042737 100100 001166 BIC HATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
052052 023737 001164 001166 CMP STMPO,$TMP1 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
052060 001006 SNE 74$ NO 
052062 005737 001164 TST $TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 
052066 001037 BNE 76$ SBR IF NOT 
052070 104046 EMT 46 
052072 000137 052256 JMP 78$ sBYPASS THE REST OF THE CHECK S 
052076 013737 001170 001126 74$: MOV STMP2,SBDDAT SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
052104 013737 001226 001240 MOV PORTB.PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
052112 113760 001226 000010 MOVB  -PORTB-RMCS2(RO) :SELECT PORT B. 
052120 005737 001164 TST $TMPO SEE IF STATUS EQ 0 FROM PORT A. 
052124 001414 BEQ 75$ *BR RO 
052126 013737 001224 001240 MOV PORTA,PTNBR :SELZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
052134 013737 001172 001126 MOV STMP3,.$BDDAT  :*BAD D FOR ERROR TYPE OUT 
052142 113760 001224 000010 MOVB _—s~PORTA, +R CRO) *SELECT AP ORT 
052150 005737 001166 TST STMP1 [SEE IF STATUS’ EQ ZERO FROM PORT B. 
052154 001004 BNE 76$ [BR IF NOT 
052156 012737 177777 001254 75$: MOV #~1,RELERR TSET "RELEASE ERROR’ INDICATOR 
052166 403988 001170 001126 76$: MOV STMP2, SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
052174 013737 001224 001240 MOV PI HANGE PORT NUMB 
036608 te 100100 001126 BIC OATATey. SBDDAT *DON' T vee ATIN BIT OR VV BIT 
052210 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
052216 001401 BEQ 77$ 7BR IF OK FROM PORT A. 
052220 104007 EMT 7 
052222 013737 001172 001126 77$: MOV $TMP3, SBDDAT CHECK RADS FOR BIT FAILURES ~ FROM PORT 8. 
052230 013737 001226 001240 MOV PORTB.PTNBR S CHANGE P ER 
052236 042737 100100 001126 BIC WATA!VV,$BDDAT DON'T check ATIN BIT OR VV BIT 
052244 023737 001124 001126 CMP SGDDAT,$BDDAT  :SEE IF ght AD OK FROM PORT B. 
052252 001401 BEQ 78$ BR IF 
052254 104007 EMT 7 


=m 


# 1? 
RMBO DUAL PORT PT1 MACRO VO4 390 15=JAN=82 07:09:22 PAGE 9-100 SEQ 0137 
PORT 'A’ SET VOLUME VALID T 
052256 340 78$: NOP 
052260 11 $9 901 6 900910 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
05 66 0137 1226 00124 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TG LOCATION FOR TYPEOUT 
05 ¢7 005037 001 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
05 016037 000012 001126 MOV RMDS(RO) ,SBDDAT ”:GET CONTENTS OF RMDS 
032306 012737 000012 001122 MOV apm SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
052314 060037 00112 ADD ADD RH/RM BASE ADDRESS 
052320 O1e737 1 001124 MOV ete SCDDAT WHAT REGIST ER SHOULD BE 
052526 013737 001126 001164 MOV SBDDAT.$TMPO ° ;MOVE REGISTER CONTENTS TO ‘STMPO' 
09¢3 042737 077777 001164 BIC #°CATA.STMPO SAVE SPECIFIED BITS 
052342 023737 001124 001164 CMP SGDDAT.$TMPO ° ;COMPARE THE BITS 
092390 001414 BEQ :BR IF OK 
052352 013737 001126 001174 MOV SBDDAT,STMP4 COPY “BAD DATA’ 
052360 042737 100000 001174 BIC HATA, STMPG ZCLEAR THE MASKED BITS 
052366 053737 001174 001124 BIS STMP4,$GDDAT  :°OR’ WITH GOOD DATA FOR TYPEC!!T 
052374 104064 EMT 6 
052376 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
052402 000240 79$: NOP 
052404 005037 001250 CLR CKERR ZCLEAR THE "CHECK ERROR’ INDICATOR 
052410 016037 900012 001126 MOV RMDS(RO),SBDDAT °:GET CONTENTS OF RMDS 
052416 012737 000012 001122 MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
052424 060037 001122 ADD RO. SBDADR ;ADD RH/RM BASE A DRESS 
052430 903037 001124 CLR DAT [WHAT REGISTER SHOULD BE 
052434 013737 001126 001164 MOV SSppAt STMPO :MOVE REGISTER CONTENTS TO "STMPO' 
052442 042737 177677 001164 BIC #CW, ,Stne0 SAVE SPECIFIED BITS 
052450 023737 001124 001164 CMP SGDDAT,$TMPO © ;COMPARE THE BITS 
052456 001414 BEQ 81$ ‘BR IF OK 
52460 013737 001126 001174 MOV SBDDAT.STMP4 § : COPY “BAD DATA’ 
052466 042737 000100 001174 BIC #VV,STMPG ‘CLEAR THE MASKED BITS 
052474 053737 001174 001124 BIS STMP4 ,SGDDAT ;*OR" WITH GOOD DATA FOR TYPEOUT 
052502 104065 EMT 
2504 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 

052510 000240 81$: NOP 

ZISSUE A DRIVE oGhEAR AND A READ IN PRESET COMMAND TO PORT B, 

+ THEN RELEASE P 
052512 012760 000011 000000 MOV a1 SRMCS1(RO)  ;DRIVE CLEAR 
052520 012760 000021 000000 MOV #21.RMCS1(RO) :READ IN PRESET 

:RELEASE THE DRIVE FROM PORT B 
052526 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
052534 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDSESS TO LOCATION FOR TYPEOUT 
052542 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 

sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
052550 005037 001254 CLR RELERR SCLEAR THE "RELEASE ERROR * INDICATOR 
052554 012737 000012 001122 MOV #RMDS.SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
052562 060037 00112 ADD RO, SBDADR SADD THE 1/0 BASE ADDRESS 
052566 01¢737 011600 001124 MOV #MOL!PGM'DPR! DRY, SCDDAT : COMPARISON CONSTANT 
052574 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A 
05 602 016037 900012 001170 MOV RMDS(RO) , STMP2 “GET THE DRIVE “STATUS REGISTER FROM PORT A. 
05261 042737 24001 001170 BIC #PIP'WRL'OM,$T EAR DONT CARES 
052616 013737 001170 001164 MOV STP? STHPO :COPY IT INTO '"STMPO' 
052624 042757 100100 001164 BIC WATA'YV AR PORT DEPENDENT BITS FROM THE COPY 
052632 113760 001206 000010 MOVB =~ PORTB nae geCRD) | CEA PD 
052640 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE ORIVE “STATUS REGISTER FROM PORT B. 
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PORT PT1 MACRO V04. 
T "A" SET VOLUME VALID TEST 
052646 042737 924001 001172 BIC #PIP'WRL'OM,$TMP3 ZCLEAR DONT CARES 
0 13737 0011 7 001166 MOV STMP3,STMP1 3COPY IT INTO *STMP1' 
0 737. 100100 001166 BIC WATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
: 0237 7 001164 001166 cme STNPO.STHPI is THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
0 005737 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
052704 001037 BNE 85$ [BR IF NOT 
052706 104046 EMT 46 
052710 000137 053074 JMP 87$ :BYPASS THE REST OF THE CHECKS 
052714 0137 7 001170 001126 83$: MOV STMP2,$SBDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
O5¢7¢8 13737 001226 001240 MOV PORTB,PTNBR ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
0527 113760 001226 000010 MOVS  PORTB.RMCS2(RO) :SELECT PORT B. 
052736 005737 001164 TST $TMPO ‘SEE IF STATUS EQ 0 FROM PORT A. 
052742 001414 BEQ 84$ ‘BR IF ZERO 
052744 013737 001224 001240 MOV PORTA,PTNBR ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
052752 013737 001172 001126 MOV STMP3.SBDDAT |: "BAD DATA’ FOR ERROR TYPE OUT 
052760 113760 001224 000010 MOVB - PORTA.RMCS2(RO) :SELECT PORT A. 
092766 005737 0011 TST $TMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 
052772 001004 BNE 85$ BR I 
052774 012737 177777 001254 84$: MOV #~1,RELERR TSET "RELEASE ERROR’ INDICATOR 
053002 104022 EMT 2 
053004 013737 001170 001126 85$: MOV STMP2,$BDDAT |; LOOK FOR BIT FAILURES WHEN RMDS READ 
053012 013737 001224 001240 MOV PORTA.PTNBR S CHANGE PORT NUMBER 
053020 042737 100100 001126 BIC WATA'VV,$BDDAT DON'T CHECK ATIN BIT OR VV BIT 
053026 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
053034 001401 BEQ 86$ [BR IF OK FROM PORT A. 
053036 104007 EMT 7 
053040 013737 001172 001126 86$: MOV STMP3,$BDDAT | ; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
053046 013737 001226 001240 MOV PORTB.PTNBR : CHANGE PORT NUMB 
053054 042737 100100 001126 BIC WATA'VV,$BDDAT :DON'T CHECK ATTN BIT OR VV BIT 
53062 023737 001124 001126 CMP SGDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
3070 001401 BEQ 87$ <BR IF OK 
053072 104007 EMT 
053074 000240 87$: NOP 
053076 000004 50$: SCOPE 
1254 
1422 FERRARA AAAA AAR ARRAREREREERAERA REAR ER AARERERERERERERRAAAEREEEES 


s*TEST 41 T "B’ SET VOL. £ VALID TEST 
z*VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 


A. WITH PORT ‘B' SELECTED, RESET AND SET ‘MUR’ IN RMMR1, 
USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
IS SEIZED AND THAT ‘VOLUME VALID’’ IS RESET AND 
ATTENTION IS SET. 


B. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 
Hg a THAT ATTENTION IS RESET AND THAT VOLUME VALID 


C. RELEASE THE DRIVE FROM PORT °B* AND SELECT THE DRIVE FOR 
PORT *A*. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 


D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 


eaeneneneneenenenennennne 


EE 








CZRNHAO RMBO DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-102" SEQ 0139 
PORT °B' SET VOLUME VALID TEST 
8 PORT ‘A* THEN RELEASE PORT ‘A’. 
te em eg ae na ce ates 
053100 : 
053100 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
053104 001406 BEQ 2$ ‘BR IF NO 
053106 10000¢ BPL 1$ ‘BR IF JUST ENTERED TEST 
053110 00013 903062 JMP EXEC SRETURN & GET NEXT TEST NUMBER 
053114 012737 177777 001300 1$: MOV #-1,KYBCTL SSET SINGLE (EST INDICATOR 
053122 012737 053136 001106 23: MOV ATESTG1,$LPADR SETUP SCOPE LOOP ADDRESS 
aE 012737 053136 00111 TEST41 MOV #TEST41,$LPERR + SETUP ERROR LOOP ADDRESS 
053136 112737 000041 001102 MOVE #41,$TSTNM :MOVE #41 TO TEST NUMBER 
053144 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
“— 053150 012737 000012 001176 MOV #10. STIMES +;D0 10. ITERATIONS 
1424 
Hott PORT | B BY WRITING THE MAINTENANCE REGISTER, RMMR1. SET 
RESET “MUR'' TO CAUSE VOLUME VALID TO RESET AND ATTENTION TO SET. 
ane THE DRIVE THROUGH PORT 8 
053156 113760 001226 000010 MOVB PORTB, RMCS2(RO) »SELECT PORT B 
053164 013737 001226 001242 MOV PORTB, SEIZPT STOR ORE SEIZING PORT'S ADDRESS 
053172 012760 000001 000024 MOV #DMD .RMMR1(RO) :WRITE DMD INTO RMMR} 
053200 013737 001224 001244 MOV PORTA, oP OPPRT > *OPPOSITE’ PORT ADDRESS 
053206 012760 001001 000024 MOV #DMD : AUR RMR MMR1 (RO) :SET UNIT READY 
053214 012760 000000 000024 MOV #0,RMMR1(RO) sRESET DIAGNOSTIC MODE 
; VERIFY THAT ATA = 1,VV = 0 FOR PORT B 
053222 005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
053226 016037 000012 001126 MOV RMDS(RO) SBDDAT "GET CONTENTS OF RMD 
053234 012737 000012 001122 MOV #RMDS S,$BDA DR FORM REGISTER ADDRESS OF ERROR MESSAGE 
053242 060037 001122 ADD RO, SBDA DR zADD RH/RM BASE ADDRESS 
053246 012737 100000 001124 MOV WATA,$GDDAT ;WHAT REGISTER SHOULD BE 
053254 013737 001126 001164 MOV SBDDAT,$TMPO  ;MOVE REGISTER CONTENTS TO "STMPO* 
053262 042737 077777 001164 BIC #°CATA.STMPO SAVE SPECIFIED BITS 
053270 023737 001124 001164 CMP SGDDAT.STMPO ° ;COMPARE THE BITS 
053276 001414 BEQ 
053300 013737 001126 001174 MOV SBDDAT. STMP4 :COPY “BAD DATA 
053306 042737 100000 001174 BIC HATA, STMPG :CLEAR THE pa reeD BITS 
033318 PTET 001174 001124 eat STMP4, SGDDAT 3;"OR* WITH GOOD DATA FOR TYPEOUT 
053324 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
053330 000240 66$: NOP 
053332 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
053336 016037 000012 001126 MOV RMDS(RO),$BDDAT °:GET CONTENTS OF RMDS 
053344 012737 000012 001122 MOV #RMDS, $BDAD R ZFORM. g hy ADDRESS OF ERROR MESSAGE 
053352 060037 001122 ADD RO, SBDADR ;ADD_RH/RM BASE ADDRESS 
053356 005037 001124 CLR $GDDAT WHAT REGIST ER SHOULD BE 
053362 013737 001126 001164 MOV SBDDAT.STMPO :MOVE %EGISTER CONTENTS TO ‘STMPO" 
053370 042737 177677 001164 BIC #°CW sinP0, SAVE SPECIFIED BITS 
053376 023737 001124 001164 CMP SGDDAT,$ :COMPARE THE BITS 
053404 001434 BEQ F OK 
053406 013737 001126 001174 MOV SBDDAT ,STMP4 *COPY "BAD DATA‘ 
053414 042737 000100 001174 BIC #VV, STMP4 SCLEAR THE MASKED BITS 
053422 053737 001174 001124 BIS STMP4,$GDDAT  :°OR' WITH GOOD DATA FOR TYPEOUT 
053430 104065 EMT 65 





ee ay pual PORT PT1 MACRO yt 90 15=JAN-82 07:09:22 PAGE 9-163" SEQ 0140 
* SET VOLUME VALID TEST 


OS eee 005137 001250 COM CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 
36 000240 68$: NOP 


3 ISSUE A_DRIVE Oe AND ? READ IN PRESET COMMAND TO PORT B 
MOV #11,RMCS1(RO) 


053440 012760 000011 000000 V AR 
053446 012760 000021 000000 MOV #21.RMCS1(RO) READ In” PRESET 

:VERIFY ATA = 0 AND VV = 1 FOR PORT B 
053454 005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
053460 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
053466 012737 000012 001122 MOV #RMDS, SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
053474 060037 001122 ADD RO, $BDA H/RM BASE ADDRESS 
053500 012737 000100 001124 MOV #VV, SGDDAT WHAT REGISTER SHOLILD BE 
053506 013737 001126 001164 MOV SBDDAT.$TMPO. ;:MOVE REGISTER CONTENTS TO ‘$TMPO' 
053514 042737 177677 001164 BIC W°CVV,$TMPO ;SAVE SPECIFIED BITS 
053522 023737 001124 001164 CMP SGDDAT,$TMPO  ; COMPARE THE BITS 
053530 001414 BEQ 7 :BR IF OK 
053532 013737 001126 001174 MOV SBDDAT.$TMP4 = COPY "BAD DATA’ 
053540 042737 000100 001174 BIC AVV, STMP4 “CLEAR THE MASKED BITS 
093546 053737 001174 001124 BIS STMPS ,SGDDAT :"OR® WITH GOOD DATA FOR TYPEOUT 
053556 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
053562 000240 70$: NOP 
053564 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
053570 016037 000012 001126 MOV RMDS (RO) , SBDDAT °:GET CONTENTS OF 
053576 012737 000012 001122 MOV RMDS , $BDADR iFORM REGISTER ADDRESS OF ERROR MESSAGE 
053604 060037 001122 ADD RO SBBADR ;ADD_RH/RM BASE ADDRES 
053610 012737 011700 001124 MOV #MOL !PGM!DPR!DRY! VV,$GDDAT ;WHAT REGISTER SHOULD BE 
053616 013737 001126 001164 MOV SBDDAT.$TMPO | :MOVE REGISTER CONTENTS TC ‘S$TMPO' 
053624 042737 024007 001164 BIC wc133770, STMPO  ;SAVE SPECIFIED BITS 
053632 023737 001124 001164 CMP SGDDAT ,STMPO ;COMPARE T HE BITS 
053640 001414 BEQ 72$ F OK 
053642 013737 001126 001174 MOV SBDD MP4 COPY "BAD DATA’ 
053650 042737 153770 001174 BIC Sooo STMRG “CLEAR THE MASKED BITS 
053656 053737 001174 001124 BIS $TMP4,$GDDAT | :"OR* WITH GOOD DATA FOR TYPEOUT 
053664 104010 EMT 10 
053666 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
053672 000240 72$: NOP 

sRELEASE PORT B AND SELECT PORT A 

‘VERIFY THAT ATA = 1 AND VV = 0 FOR PORT A 

ZRELEASE THE DRIVE FROM PORT B 
053674 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
053702 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
053710 012760 000013 000000 MOV #13,RMCS1(RO). ;ISSUE RELEASE THROUGH PORT 8 

:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
053716 005037 001254 CLR RELERR sCLEAR THE "RELEASE ERROR ' INDICATOR 
053722 012737 000012 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
053730 060037 001122 ADD RO, $BDADR ‘ADD THE 1/0 BASE ADDRESS 
053734 012737 011600 001124 MOV #MOL ‘PGM:DPR!DRY.SGDDAT  ; COMPARISON CONSTANT 
053742 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT 
053750 016037 000012 001170 MOV $(RO) ,$T TMP2 :GET THE PORIVE “STATUS REG!STER FROM PORT A. 
053756 042737 024001 001170 BIC #PIP!WRL'OM, STMP2 :CLEAR DONT CARES 
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141 *B* SET VOLUME VALID 
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75$: 


76$: 


77$: 


78$: 


79$: 
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STMP2.$TMPO :COPY IT INTO *$TMPO' 
WATA!VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTB , RACS2 (RO) iSELE CT P 

S(RO) /$ T THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRL'OM,$T TmeS y 17 GEAR DONT, CARES 


STMP 
HATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 


. 
_ 


Ls staat 31S S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
$TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 

iss :BR IF NOT 

78$ sBYPA 3S pas REST OF THE ‘wiry 


STMP2,SBDDAT 3SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
PORTB,PTNBR ZSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
PORTB.RMCS2(RO) ;SELECT PORT B. 

sre 3SEE aa EQ 0 FROM PORT A. 

PORTA,PTNBR :SEIZING. Ag! IF TEST SHOWS DRIVE NOT IN NEUTRAL 
$TMP3,SBDDAT ; "BAD mr ms ERROR TYPE OUT 

PORTA,RMCS2(RO) ;SELECT 

al 3 a STATUS” EQ ZERO FROM PORT B. 

#-1,RELERR {SET "RELEASE ERROR’ INDICATOR 


STMP2,$BDDAT ; LOOK FOR BIT FAILURES WHEN RMDS READ 
PORTA.PTNBR :CHANGE PORT NUMBER 

HATA! VV, $BDDAT ;DON' T CHECK ATIN BIT OR VV BIT 
$GDDAT,$BDDAT ALL BITS OK 

77$ :BR IF OK OKOM PORT A 


7 

$TMP3,$BDDAT CHECK _RMDS FOR BIT FAILURES - FROM PORT B. 
PORTB,PTNER ; CHANGE PORT 

#ATA'VV,$BDDAT DON'T CHECK ATTN BIT a. VW BIT 

SGODAT. , SBDDAT SEE IF READ OK FROM PORT B. 


PORTA,RMCS2(RO) ;SELECT PORT A 

PORTA.PTNBR ;MOVE PORT TADDRESS TO LOCATION FOR TYPEOUT 
CKERR CLEAR THE ‘CHECK ERROR® INDICATOR 
RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 

#RMDS,SBDADR ; FORM nesistee ADDRESS OF ERROR MESSAGE 
RO, $BDADR sADD_RH/ oa Hy ADDRESS 

HATA, SGDDAT ;WHAT REGISTER SHOULD BE 

SBDDAT ,STMPO sMOVE REGISTER FesTents TO *$TMPO' 
WACATA.STMPO ; SAVE ath BITS 
COMPARE THE BITS 


SGDDAT ,STMPO 

79 BR IF OK 

SBDDAT ,STMP4 : COPY " DATA’ 

HATA, STMP4 ZCLEAR THE MASKED BITS 

STMP4 , SGDDAT 7"OR* WITH GOOD DATA FOR TYPEOUT 

CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR CLEAR THE ‘CHECK ERROR*® INDICATOR 
RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 








SEQ 0141 | 
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PORT *B’ SET VOLUME VALID 


054512 
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054760 
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Saz2 
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000011 
000021 


001224 
001224 
000013 


001254 


001166 
177777 


001122 


81$: 


ISSUE A DRIVE CLEAR 4ND A READ 
THEN “av PORT A 


000000 
000000 


#RMDS. SBDADR 
RO, $BDAD 
SGDDAT 
SBDDAT, $TMPO 
ScDDAT.S 
SBDDAT, STMPG 
#VV,STM 

STMP4 ,SGDDAT 
CKERR 


#11,RMCS1(RO) 
#21, gRMCSTCRO) 


;RELEASE MTHE DRIVE FROM PORT 


000010 
001240 
000000 


7 VERIFY 


001122 
001124 


83$: 


001254 84$: 


MOVB 
MOV 
MOV 


PORTA, RMCS2(RO) 
PORTA,PTNBR ; 
#13,RMCS1(RO) 


RELERR 
#RMDS , SBDADR 


RO, $BDADR 
#MOL !PGM!DPR! DRY 


PORTA, RMCS2 (RO) 
RMD MP2 


BR IF 
;COPY "BAD DATA‘ 

7CLEAR THE MASKED BITS 

:"OR' WITH GOOD DATA FOR TYPEOUT 


zSET THE REGISTER COMPARE ERROR INDICATOR 


3FORM Siar ADDRESS OF ERROR MESSAGE 
+ Bi RM BASE ADDR .. 


REGISTER SHOULD BE 
REGISTER CONTENTS TO "STMPO 


mov E 
#°CW $THPO SAVE SPECIFIED BITS 
;COMPARE THE BITS 


IN PRESET COMMAND TO PORT A, 


zDRIVE CLEAR 
3READ IN PRESET 


R 
orp et ‘OM, STMP 


;SELECT PORT A 
VE PORT ADDRESS TO LOCATION Ne TYPEOUT 
ISSUE RELEASE THROUGH PORT 


THAT THE DRIVE IS STILL IN NEUTRAL 


CLEAR THE ‘RELEASE ERROR ° INDICATOR 
7FORM THE ADDRESS OF RMDS FOR TYPEOUT 


v.$ 
iSEL 
;GET 


ECT 


T 


THE 1/0 BASE ADDRESS 


ZADD 
GDDAT Fh ease: CONSTANT 


hE DRIVE STATUS REGISTER FROM PORT A. 
,DONT CARES 


a 
;COPY IT’ INT 
MPO CLEAR g 'DEPENDENT BITS FROM THE COPY 
PORTE. Vases (RO) :SELECT P 


DENT 
31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


HE DRIVE” STATUS REGISTER FROM PORT B. 
ONT CARES 


3 COPY ir INTO at 
CLEAR PORT DEPEN 


BITS F20M THE COPY 


SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
3BR IF NOT 


RMDS ( RO) , TMP3 TT 
#PIP'URLIOM, STMPS 
$TMP3,STMP1 
#ATA!VV,STMP1 
STMPO,STMP1 

83$ 

$STMPO 

85$ r 

46 

87$ sBYPAS 
$TMP2 , SBDDAT 3SET 
PORTB,PTNBR 3SEIZI 
PORTB,RMCS2(RO) ;SELEC 
$TMPO 3SEE I 
84$ 37BR IF 
PORTA, oTWOR 7$E1Z1 
STMP3.$BDDA 7 "BAD 
PORTA, Oe (RO) 3SELEC 
STMP1 sSEE I 
85$ 3BR IF 
#-1,RELERR 3SET ' 


S THE REST OF THE peck Ss 


TH 
4 ood ae) BAD DATA FOR ERROR MESSAGE 


- F TEST SHOWS DRIVE NOT IN NEUTRAL 
F STATUS EQ 0 FROM PORT A. 
N 


PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
ATA’ FOR ERROR TYPE OUT 


ORT A. 
STATUS EQ ZERO FROM PORT 8S. 
RELEASE ERROR* INDICATOR 


SEQ 0142 


N11 
CZRNHAO RM8O DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-106 SEQ 0143 
141 VALID TEST 


054766 104022 EMT 22 
054770 137 001170 001126 85$: MOV STMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
054776 013737 001224 001240 MOV PORTA.PTNBR ;CHANGE PORT NUMBER 
055004 0427 7 100100 001126 BIC HATA: WV $BDDAT DON'T CHECK ATTN BIT OR VV BIT 
055012 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
0550 901401 BEQ gos :BR IF OK FROM PORT A 
055024 0137 7 001172 001126 86$: MOV STMP3, SEDDAT ;CHECK RMDS FOR BIT FAILURES ~ FROM PORT 8. 
055032 013737 001226 001240 MOV P R :CHANGE POR 
055040 042737 100100 001126 BIC OATATYV TSBDDAT *DON’T CHECK ATTN BIT OR VV BIT 
055046 023737 001124 001126 CMP SGDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
055054 001401 BEQ 87$ :BR IF OK 
055056 104007 EMT 7 
055060 000240 87$: NOP 
055062 000004 50$: SCOPE 
FERRARA RRRRE EEE EEEERERERE RR RERRERARERERERERRRERRRRARER ERS 
;STEST 42 TEST PORT 'A* TIMEOUT DOES NOS RESET DRIVE 
:*VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
+ A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
j* B. WRITE 1'S INTO RMER1 THROUGH PORT ‘A* TO FORCE AN ATTENTION. 
t* (C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
:* NEUTRAL; THAT ATTENTION 1S SET FOR PORT "A' AN FOR 
* PORT ‘B’; AND THAT BOTH PORTS ste. 1°S IN THE ERROR REGISTER. 
°% 
° : AREER EEEEEEEEERARERERREKEEREKKEEEEREEEERARREREEEE 
055064 $142: 
055064 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
055070 001406 BEQ 2$ F 
055072 100002 BPL 1$ <BR IF JUST ENTERED TEST 
055074 000137 003062 JMP EXEC [RETURN & GET NEXT YEST NUMBER 
055100 012737 177777 001300 1$: MOV #-1,K TSET SINGLE TEST INDICATCR 
055106 012737 055122 001106 2$: MOV aTEStaes qt ADR *SETUP SCOPE LOOP ADDRESS 
095114 012737 055122 001110 mee MOV ATEST42.$LPERR :SETUP ERROR LOOP ADDRESS 
055122 112737 000042 001102 “ MOVB #42,$TSTNM sMOVE #42 TO TEST NUMBER 
055130 012706 001100 MOV #STACK, SP “LOAD THE STACK POINTER 
055134 012737 000002 001176 MOV #2.,$TIMES +:D0 2. ITERATIONS 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
055142 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT WA 
055150 005060 000012 CLR RMDS (RO) *SEIZE THE DRIVE 
055154 012760 000011 000000 MOV #11 -RUCS1 (RO) 3 ISSUE DRIVE CLEAR 
055162 012760 000013 000000 MOV #13.RMCS1(RO) RELEASE | THE DRIVE 
055170 113760 001226 000010 MOVB _—~ PORTB, RMCS2(RO) 3SEL ECT PORT #8 
055176 005060 000012 CLR RMDS (RO) SEIZE THe RORIVE THROUGH PORT 'B' 
055202 012760 000011 0000v0 MOV #11,RMCS1(RO) TESGE DRIVE CLEAR 
055210 012760 000013 000000 MOV #132RMCS1(RO) :RELEASE THE DRIVE 





B_12 
CZRNHAO wee DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-107 SEQ 0144 
T42 TEST PORT ‘A’ TIMEOUT DOES NOT RESET DRIVE 


SEIZE THE DRIVE THROUGH PORT A 


055216 113760 001224 000010 MOVB PORTA, RMCS2(RO) sSELECT PORT A 
055224 013737 001224 001242 MOV PORTA, SEIZP ; STORE SEIZING PORT'S ADDRESS 
055232 005060 000012 CLR RMDS (RO) :WRITE RM 
055236 013737 001226 001244 MOV PORTB,OPPRT : OPPOSITE’ PORT ADDRESS 
sFORCE AN ATTENTION BY SETTING ERRORS. 
055244 012760 177777 000014 MOV #-1,RMER1(RO)  ;SET ERROR BITS 
sSTART THE TIMER 
055252 005037 001256 CLR :CLEAR THE ELAPSED TIME COUNTER 
055256 012737 003720 001260 MOV +2000., SSET WATCH TO 2000. MS 
055264 113760 001226 000019 MOVB _—swPORTB, Rness CRO) “SELECT PORT B 
055272 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
;WAIT FOR DRIVE TO TIMEOUT 
055300 005760 000012 1$: TST RMDS (RO) :WAIT FOR THE DRIVE TO BE RELEASED 
055304 001004 $ “BR IF DRIVE RELEASED 
055306 005737 001260 TST WATCH SWATCH AT ZERO ? 
055312 001372 BNE 1$ “BR IF 
055314 104036 EMT 36 
055316 2$: 
055316 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
055324 013737 001224 001240 MOV PORTA.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
:THE ERROR BIT ("ERR") IN RDS SHOULD STILL BE SET 
055332 005037 001250 CLR CKERR ZCLEAR THE "CHECK ERROR’ INDICATOR 
055336 016037 000012 001126 MOV RMDS(RO),$BDDAT °:GE) CONTENTS O 
055344 012737 900012 001122 MOV #RMDS, $BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
055352 060037 00112 ADD RO, $BDADR RM BASE A DRESS 
055356 012737 040000 001124 MOV HERR, SGDDAT WH) REGISTER SHOU 1D BE 
055364 013737 001126 001164 MOV SBDDAT,$TMPO ° ;MOVE REGISTER CONTENTS TO "STMPO" 
055372 042737 137777 001164 BIC #°CERR.STMPO SAVE SPECIFIED BITS 
055400 023737 001124 001164 CMP SGDDAT.$TMPO ;COMPARE THE BITS 
055406 001414 BEQ 66 OK 
055410 013737 001126 001174 MOV SBDDAT $TMP4 COPY "BAD DATA’ 
055416 942737 040090 001174 BIC STMPS :CLEAR THE MASKED BITS 
055404 053737 0011°4 001124 BIS nt SeDDAT :*OR* WITH GOOD DATA FOR TYPEOUT 
055434 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
055440 000240 66$: NOP 
sTHE ERROR REGISTER SHOULD CONTAIN 1°S 
055442 00503 001250 CLR CKERR Aad LEAR THE "CHECK ERROR’ INDICATOR 
055446 016037 000014 001126 MOV RMER1 (RO) SBDDAT GET CONTENTS OF RMER1 
055454 012737 000014 00112 MOV #RMER1 , SBDADR FORM M REGISTER ADDRESS OF ERROR MESSAGE 
055462 9037 001122 ADD RO R "ADD RH/RM BASE ADDRESS 
055466 Ole? 7? 1777 001124 MOV #177777,$GDDAT :WHAT REGISTER SHOULD BE 
055474 023737 001124 001126 CMP SGDDAT,$BDDAT 31S THE REGISTER OK 
055502 001403 BEQ 688 :BR IF OK 
055504 104010 EMT 1 


—m 
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TEST PORT ‘A’ T ineout DOES NOT RESET DRIVE | 
055506 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR | 
055512 000240 68$: NOP | 
:THE ATTENTION BIT FOR PORT A SHOULD STILL BE SET | 
055514 005037 001250 CLR CkE CLEAR THE “CHECK ERROR’ INDICATOR 
055520 016037 00001 001126 MOV SNES eRO? SBDDAT GET CONTENTS 
0955¢6 012737 000012 001122 mOV SRDS - SBOADR ‘oid "REGISTER ADDRESS OF ERROR MESSAGE 
055534 060037 00112 ADD ADR /RM BASE ADDRESS 
055540 O1e737 100000 001124 MOV gatas “DOAY aod REGISTER SHOULD BE 
055546 013737 001126 001164 MOV SBDDA> 57 sMOVE REGISTER CONTENTS TO "STMPO' 
055554 042737 0777 001164 BIC CAT, sT pSAVE SPECIFIED BITS 
055562 023737 001124 001164 CMP $GDDA1,$ :COMPARE THE BITS 
055570 001414 BEQ 70$ F OK 
055572 013737 001126 001174 MOV SBDDAT.STMP4 ©: COPY "BAD DATA’ 
055600 042737 100000 001174 BIC BATA, STMPS CLEAR THE MASKED BITS 
055606 053737 001174 001124 els sTmPi, $GDDAT :*OR' WITH GOOD DATA FOR TYPEOUT 
055616 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
055622 000240 70$: NOP 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
055624 60503, 001254 CLR RELERR SCLEAR THE "RELEASE ERROR ° INDICATOR 
055630 912737 0000'2 001122 MOV #REDS.SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
055636 060037 001122 ADD RO, $BDADR “ADD THE 1/0 BASE ADDRESS 
2 012737 051700 001124 MOV #51700,$GDDAT ;COMPARSION CONSTANT 
055650 113760 001224 000010 MOVB = PORTA, RMCS2(RO)- SELECT PORT 
055656 016037 000012 001170 MOV RMDS(R ‘ “GET THE ORIVE” STATUS REGISTER FROM PORT A. 
055664 042737 024001 001170 BIC P'WRL'OM, STMP :CLEAR, DONT CARES 
055672 013737 001170 001164 MOV MP2, $TMPO sCOPY IT INTO ° 
055700 042737 100100 001164 BIC WATA!VV,$TMPO CLEAR PORT OEPENDENT BITS FROM THE COPY 
055706 113760 001226 000010 MOVB _— PORTB, RMCS2(RO) :SELECT PORT 8. 
055714 016037 000012 001172 MOV RMDS(R ‘ “GET THE DRIVE STATUS REGISTER FROM PORT B. 
055722 042737 024001 001172 BIC #PIP! : ran ONT CARES 
055730 013737 001172 001166 MOV STMP3,STMP 7COPY IT INTO *STMP1' 
055736 737 100100 001166 BIC WATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
055744 023737 001164 001166 CMP $TMPO,$TMP1 t1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
055752 006 BNE 72$ [BR IF NOT 
055754 005737 001164 TST STMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
055760 001045 BNE 74$ :BR IF 
055762 10404 EMT 4 
055764 000137 056164 JMP 76$ sBYPASS THE REST OF THE CHECK $ 
055770 013737 001170 001126 72$: MOV STMP2, SBDDAT *SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
055776 013737 001226 001240 MOV PORT *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
056004 113760 001226 000010 MOVB PORT. “RAC SECRO) ‘SELECT PORT B. 
056012 005737 001164 TST *SEE IF STATUS EQ 0 FROM PORT A. 
056016 001414 BEQ $ ‘BR IF 2 
056020 013737 001224 001240 MOV PORTA, BTNBR ZSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
056026 013737 001172 001126 MOV STMP3,$BD :*BAD DATA’ FOR ERROR TYPE OUT 
056034 113760 001224 000010 MOVB _—sCwPORTA, Parse (ROD SSELECT PORT A 
056042 005737 001166 TST $TMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
056046 001012 BNE 74$ ‘BR IF NOT 
056050 01273 177777 001254 73$: MOV #~-1,RELERR SET “RELEASE ERROR’ INDICATOR 
056056 012760 000011 00000 MOV #11.RMCS1(RO) :CLEAR THE DRIVE 
056064 012760 000013 00000 MOV #13.RMCS1(RO) CRELEASE” THE DRIVE 
056072 104026 EMT 26 
Se See. eee 


=—am 
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142 T PORT ‘A* TIMEOUT DOES NOT RESET DRIVE 


74$: eed Lad & a » SBDDAT ;LOOK RY FAILURES WHEN RMDS READ 


OV TNBR ; CHANGE P 

BIC HATA, AS EDDAT :DON'T CHECK THE ATTN BIT 
CMP SopDAr, ,SBDDAT :ALL BITS 
BEG f ‘BR IF OK PKom PORT A. 

75$: MOV STMP3,$BDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT 8B. 
MOV PORTA.PTNB NBR 3¢ E PORT R 
BIC HATA, SBDDA ‘DON'T CHECK THE ATIN BIT 
CMP S$GDDAT, SBDDAT ‘SEE If READ OK FROM PORT B. 
BEQ 76$ ‘BR IF Ok 
EMT 

76$: NOP 


;THE ATTENTION BIT FOR PORT B SHOULD NOT BE SET 


MOVB _—s— PORT, RACS2 (RO? >SELECT PORT B 
MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR sCLEAR THE ‘CHECK ERROR’ INDICATOR 
MOV RMDS(RO) ,SBDDAT ";GET CONTENTS OF RMDS 
MOV #RMDS,SBOADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO. $BDADR ;ADD RH/RM BASE A DRESS 
CLR $GDDAT WHAT RREGISTER sHoUL LD BE 
MOV SEDDAT, STMPO _:MOVE REGISTER CONTENTS TO ‘STMPO' 
BIC W°CATA.STMPO ;SAVE SPECIFIED BITS 
cP SGDDAT,STMPO °  ; COMPAR eT E BITS 
MOV SBDDAT, STMP4 = COPY "BAD DATA’ 
BIC HATA, STMPG :CLEAR THE MASKED BITS 
Bl srmPs, SGDDAT  :*°OR' WITH GOOD DATA FOR TYPEOUT 
_ com CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


;CLEAR ATTENTION BIT FOR PORT A 


MOVB PORTA,RMCS2(RO) ;SELECT 

CLR (RO) SEIZE THE D 

MOV #11,RMCS1(RO) ;ISSUE DRIV 

MOV #13,RMCS1(RO) Hy ey THE SRIVE 
3$: +. OPE ;LOOP 


FERRARA RAREEREERERARERERAERAERARAEARRRERRRERERRRERRERERERER EE 


;STEST 43 TEST PORT 'B’ TIMEOUT DOES NOT RESET DRIVE 

:*VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

i* A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 

:* B. WRITE 1°S INTO RMER1 THROUGH PORT ‘B’. 

i* (C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
is NEUTRAL; THAT ATTENTION IS SET FOR "B’ AN ET FOR 

fs "A*; AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 


RRR EEE REREEEEEERAEREAEERERAEEREAEREEREERREERERERREEREREEE 
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T "B' TIMEOUT DOES NOT RESET DRIVE 


oa 
S3 


Ww WWW 
N NNNWN 


—+t 
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Ssss=2Se 
MNMNVUINNONIVUIW 
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e=28 
So 
Ww 


WWrRuV 


2 
04036 


as 


001224 


177777 


001256 


001224 


000012 
001260 


001250 


001300 
001106 
001110 
001102 


001176 


000010 
000000 
000000 
000010 


000000 
000000 


000010 
001242 


001244 


000014 


001260 
000010 
001240 


000010 
001240 


TST43: 
TST KYBCTL sPERFORMING ONLY SINGLE TEST ? 
BEQ 2$ ‘BR IF NOT 
BPL 1$ <BR IF JUST ENTERED TEST 
JMP EXEC SRETURN & GET NEXT TEST NUMBER 
1$: MOV SSET SINGLE TEST INDICATOR 
23: MOV aTES TS CTL PADR :SETUP SCOPE LOOP ADDRESS 
aa MOV #TEST43,$LPERR SETUP ERROR LOOP ADDRESS 


sMOVE #43 TO TEST N“ABER 
LOAD THE STACK POINTER 
D0 2. ITERATIONS 


MOVB  #43,$TSTNM 
MOV WSTACK, SP 
MOV #2.,$TIMES 
SCLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
RADS (RO) : THE DRIVE 
MOV W11,RMCS1(RO) ISSUE DRIVE CLEAR 
MOV #13. RMCS1 (RO) REL EASE THE DRIVE 
MOVB _— PORTB, RMCS2(RO) {SELECT PORT #B 
CLR RMDS TROD *SEIZE THE DRIVE THROUGH PORT 'B' 
MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
MOV #13.RMCS1(RO) :RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT B 


MOVB oe: RMCS2(RO) ;SELECT PORT B 
MOV ORTB SEI 2PT ;STORE SEIZING PORT'S ADDRESS 


RMD ( WRITE RMD 
MOV PORTA,OPPRT ; OPPOSITE’ PORT ADDRESS 
sFORCE AN ATTENTION BY SETTING ERRORS. 
MOV #-1,RMER1(RO) ;SET ERROR BITS 
START THE TIMER 
CLR TIME CLEAR THE EL ADD TIME COUNTER 
9 gee. MS 


MOV #2000., 3SET on 
a PORTA, anes (RO) ;SELECT P 


PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


sWAIT FOR DRIVE TO TIMEOUT 


1$: TST RMDS (RO) sWAIT FOR THE DRIVE TO BE RELEASED 
BNE ‘BR IF way E RELEA SED 
TST WATCH ‘WATCH T ZERO ? 
BNE 1$ 3BR EN 
EMT 36 
2$: 


oo PORTB, peg ae ;SELECT PORT 


B 
FORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


7THE ERROR BIT ("ERR") IN RMDS SHOULD STILL BE SET 
CLR CKERR 





:CLEAR THE ‘CHECK ERROR’ INDICATOR 


SEQ 0147 


“am 


ee at 
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3 TEST PORT 'B' TIMEOUT DOES NOT RESET DRIVE 
056612 016037 00001 001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
05 12737 90001 0011 MOV #RNDS SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE | 
056626 060037 00112 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS | 
056632 012737 001124 MOV #ERR, SGDDAT {WHAT REGISTER SHOULD BE 
056640 013737 0011 6 001164 MOV SBDDAT,$TMPO ' ;MOVE REGISTER CONTENTS TO ‘STMPO" 
056646 0427 7? 137777 001164 BIC W°CERR.STMPO SAVE SPECIFIED BITS | 
056654 023737 001124 001764 CMP SGDDAT.$TMPO ° ; COMPARE THE BITS 
05 001414 | BEQ 66 ‘BR 
05 0i37s7 001126 001174 MOV SBDDAT,$TMP4 § :COPY ‘BAD DATA’ 

056672 042737 040000 001174 BIC HERR, STMP4 :CLEAR THE MASKED BITS 
056700 053737 001174 001124 81 STMP4,$GDDAT :°OR* WITH GOOD DATA FOR TYPEOUT 
056710 bo%4 87 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
056714 000240 66$: NOP 
:THE ERROR REGISTER SHOULD CONTAIN 1°S 
056716 005037 001250 CLR CKERR :CLEAR THE “CHECK ERROR’ INDICATOR 
056722 016037 000014 001126 MOV RMERT (RO) , SBDDAT sGET CONTENTS OF RME 
056730 012737 000014 001122 MOV #RNER ,SBDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
056736 060037 001122 ADD 0, $BDADR *';ADD RH/RM BASE ADDRESS 
056742 012737 177777 001124 MOV RO Se $GDDAT WHAT REGISTER SHOULD BE 
056750 023737 001124 001126 CMP S$GDDAT,$BDDAT :IS THE REGISTER OK ? 
056756 001403 BEQ 68$ BR IF OK 
056760 104010 EMT 10 
056762 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
056766 000240 68$: NOP 
:THE ATTENTION BIT FOR PORT B SHOULD STILL BE SET 
056770 005037 001250 CLR CKERR SCLEAR THE "CHECK ERROR' INDICATOR 
056774 016037 000012 001126 MOV RMDS(RO),$BDDAT °;GET CONTENTS OF RMDS 
057002 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
057010 060037 001122 ADD RO, $BDADR sADD RH/RM BASE ADDRESS 
057014 012737 100000 001124 MOV Hata. SGDDAT ;WHAT REGISTER SHOULD BE 
057022 013737 001126 001164 MOV SBDDAT,$TMPO ' ;MOVE REGISTER CONTENTS TO ‘*STMPO' 
057030 042737 077777 001164 BIC aT *STMPO SAVE SPECIFIED BITS 
7036 023737 001124 001164 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
057044 001414 BEQ $ F OK 
057046 013737 001126 001174 MOV SBDDAT.STMP4 COPY "BAD DATA’ 
057054 042737 100000 001174 BIC HATA, STMP4 :CLEAR THE MASKED BITS 
057062 053737 001174 001124 BIS SNPs, $GDDAT  :*OR' WITH GOOD DATA FOR TYPEOUT 
057072 005137 001250 COM CRERR :SET THE REGISTER COMPARE ERROR INDICATOR 
057076 000240 70$: NOP 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
057100 005037 001254 CLR RELERR :CLEAR THE "RELEASE E) “OR ' INDICATOR 
057104 012737 000012 001122 MOV #RMDS,$BDADR § :FORM THE ADDRESS OF kmDS FOR TYPEOUT 
057112 060037 001122 ADD RO SBDADR ADD T THE 1/0 BASE ADDRESS 
057116 012737 051700 001124 MOV WS1700, $GD ; COMPAR SION, CONSTANT 
057124 113760 001224 000010 MOVB PORTA RaceocROD® SELECT 
057132 016037 000012 001170 MOV $(RO) $T TMP2 :GET THE PORIVE “STATUS REGISTER FROM PORT A. 
057140 042737 024001 001770 BIC #PIT'WRL'OM,STMP2 :CLEAR DONT CARES | 
057146 013737 001170 001164 MOV STMP2, STMPO sCOPY IT INTO "STMPO® | 
057154 042737 100100 001164 BIC HATA'VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
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RM8O0 DUAL POR 
TEST PORT 'B' TIMEOUT DOES NOT RESET DRIVE 
057162 113760 001226 00001 MOVE _—s- PORTB aia :SELECT PORT 8. 
057170 016037 000012 00117 MOV DS(RO ist GET THE DRIVE STATUS REGISTER FROM PORT B. 
057176 04 13 024001 00117 BIC #PIP!WRL :CLEAR DONT CARES 
057204 013737 001172 001166 MOV STMP3 STM eo 7COPY IT INTO *$TMP1° 
057212 042737 100100 001166 BIC WATA'VV,$TMP1  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
05720 023737 601164 001166 CMP STMPO,$TMP1 :IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
057226 001006 E 72$ ‘BR IF NOT | 
057230 005737 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
057234 001045 E 74$ ‘BR IF NOT | 
057236 104046 EMT 46 
057240 000137 057440 JMP 76$ sBYPASS THE REST OF THE CHECK 
057244 013737 001170 001126 728: MOV STMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR sERROR MESSAGE 
057252 013737 001226 001240 MOV PORTB.PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
057260 113760 001226 000010 MOVB _— PORTB,. RMCS2(RO) 3SEL ECT PORT B. 
057266 005737 001164 TST $TMPO- “SEE IF STATUS EQ 0 FROM PORT A. | 
057272 001414 BEQ 73$ 3BR IF ZERO 
057274 013737 001224 001240 MOV PORTA,PTNBR i SEIZING | PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL | 
057302 013737 001172 001126 MOV $TMP3.$BDDAT  ;:'"BAD DAT FOR ERROR TYPE OUT 
957310 113760 001224 000010 MOVB _—s—wPORTA, RRS CRO) S SELECT PORT 
057316 005737 001166 TST $TMP1 :SEE IF STATUS’ EQ ZERO FROM PORT B. 
057322 001012 PNE 74$ 7BR I 
057324 012737 177777 001254 73%: MOV #-1,RELERR SET *RELEASE ERROR’ INDICATOR 
057332 012760 000011 000000 MOV #11.RMCS1(RO)  :CLEAR THE DRIVE 
37340 912760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
057350 013737 001170 001126 74$: MOV $TMP2,$BDDAT ; LOOK FOR BIT FAILURES WHEN RMDS READ 
057356 013737 001224 001240 MOV PORTA.PTNBR : CHANGE PORT ER 
57364 042737 100000 001126 BIC HATA, $BDDAT [DON'T CHECK THE ATTN BIT 
057372 023737 001124 001126 CMP SGDDAT,$BDDAT :ALL BITS OK ? 
57400 001401 BEQ 75$ [BR IF OK FROM PORT A. 
057402 104007 EMT ? 
057404 013737 001172 001126 75$: MOV STMP2,$BDDAT | ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
057412 013737 001226 001240 MOV PORTB,PTNBR :CHANGE PORT NUMBER 
057420 042737 100000 001126 BIC HATA, $BDDAT [DON'T CHECK THE ATIN BIT 
057426 023737 001124 001126 CMP SGDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
057434 001401 BEQ 76$ :BR IF OK 
057436 104007 EMT 7 
057440 000240 76$: NOP 
:THE ATTENTION BIT FOR PORT A SHOULD NOT BE SET 
057442 113760 001224 000010 MCVB _—sC— PORTA, RACS2(RO) >SELECT POR 
057450 013737 001224 001240 MOV PORTA, PTNBR MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
057456 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
057462 016037 000012 001126 MOV RMDS(RO), SBDDAT :GET CONTENTS OF 
057470 012737 000012 001122 MOV #RMDS , $BDAD :FORM REGISTER ADDRESS OF ERROR MESSAGE 
057476 060037 00112 ADD RO. SBDADR RH/RM BASE ADDRESS 
057502 005037 001124 CLR $GDDAT ‘WHAT REGISTER SHOULD BE 
057506 013737 001126 001164 MOV SBDDAT,$TMPO : MOVE REGISTER CONTENTS TO "STMPO’ 
057514 042737 077777 001164 BIC W°CATA.$TMPO SAVE SPECIFIED BITS 
057522 023737 001124 001164 CMP SGDDAT.$TMPO © ; COMPARE THE BITS 
057530 001414 BEQ :BR IF OK 
057532 013737 001126 001174 MOV SBDDAT.$TMP4 : COPY "BAD DATA’ 
057540 042737 100000 001174 BIC HATA, $TMP4 *CLEAR THE MASKED BITS | 
057946 053737 001174 001124 BIS SINPS, $GDDAT  :'OR® WITH GOOD DATA FOR TYPEOUT | 
057556 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR | 
| 
| 
J 
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001226 
00001 

000011 
000013 


001300 


003062 
177777 
057652 
057652 


000044 
001100 
000002 


001224 
001224 
000012 


000010 


000000 
000000 


001300 
001106 
001110 
001102 


001176 


000010 


000000 
000000 
000010 


000000 
000000 


:CLEAR ATTENTION BIT FOR PORT B 
PORTB -\ paabataad 


#11,RMCS1(RO) 
#13,RMCS1 (RO) 
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TEST PORT "B* TIMEOUT DOES NOT RESET DRIVE 


SEQ 0150 


FERRARA ERE ARREREAERARAEAARERAREERRRRAAEERERRAREREREAEER ES 


PORT ‘A’ RETRIGGER BY DEMAND TEST 
[VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RFTRIGGERED BY MASSBUS DEMAND. 


77$: NOP 
MOVB 
CLR 
MOV 
MOV 

3$: SCOPE 

ZSTEST 44 

te 

3* 

se 

3* 

3* 

s* 

3* TIME. 

3* 

3* 

2* BIT 

:* 

TST44: 
TST 
BEQ 
BPL 
JMP 

1$: MOV 

2$: MOV 
MOV 

TEST44: 
MOVB 
MOV 
MOV 


(THE MEASUREMENT IS MADE FROM STEP °B’. 


aYBCTL 
2$ 
1$ 


#-1,KYBCTL 
#TEST44,,SLPADR 
#TEST44,,SLPERR 


#44 ,$TSTNM 


#STACK, 


SP 


#2. ,STIMES 


: PERF ORMING ONLY SINGLE TEST ? 
[BR IF JUST ENTERED TEST 
: ET NEXT TEST NUMBER 
SSETUP SCOPE LOOP ADDRESS 
SSETUP ERROR LOOP ADDRESS 


sMOVE #44 TO TEST NUMBER 
[LOAD THE STACK POINTER 
33D0 2. ITERATIONS 


;CLEAR ATTENTION BITS FOR BOTH PORTS 


MOV 


MOVB 
MOV 
CLR 


SATS SSC 2 

#11 pa Ube 4 
#13,RMCS1 ( 

PORTE RACSE(RO) 

#17,RMCS1(RO) 

#13,RMCS1(RO) 

3SEIZE THE DRIVE THROUGH PORT A 


PORTA, RMCS2(RO) 
PORTA, SEIZPT 
SRO) 


SELECT PORT 

SEIZE THE DRIVE 
‘ISSUE DRIVE CLEAR 
ZRELEASE THE DRIVE 


A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
B. WAIT 500 MS AND READ RMDS THROUGH PORT ‘A’. 
C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR = ss i OF THE SPECIFIED 


D. wet Ld THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 


RRR ARAAREAEAAEREEE RERAAAAEARAEERAERAERREARRARRARAEREEEREAEERERERERE 


;SE PORT #8 
SEIZE THE Ma hy Be THROUGH PORT ‘B° 


‘ISSUE DRIVE 
SRELEASE THE DRIVE 


-SELECT PO 
: STORE CF TING PORT S ADDRESS 
WRITE RMDS 
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PORT ‘A* RETRIGGER BY DEMAND T 


057766 013737 001226 001244 MOV PORTB ,OPPRT ;"OPPOSITE’ PORT ADDRESS 
;START THE TIMER 
057774 003037 001256 CLR TIME CLEAR THE wi TIME COUNTER 
060000 012737 000764 001260 MOV #500. ,WATCH 3SET WATCH TOT MS 
060006 0057357 001260 1$: TST WATCH WATCH EQUAL 10 7ERO 
060012 001375 BNE 1$ TBR IF NOT 
;START THE TIMER 
060014 005037 001256 CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
060020 012737 003720 001260 MOV #2000. ,WATCH SET WATCH TO 2000. MS 
zRETRIGGER THE TIMEOUT ONE~SHOT 
060026 005760 000012 TST RMDS (RO) sRETRIGGER THE ONE-SHOT 
060032 113760 001226 000010 MOVB PORTB, aS age ;SELECT POR 
060040 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
060046 005760 000012 2s: TST RMDS (RO) sWAIT FOR TIMEOUT 
060052 001004 BNE 3$ 3BR_IF TIMEOUT OCCURRED 
060954 005737 001260 TST WATCH sWATCH EQUAL TO ZERO ? 
060060 001372 BNE 2$ BR IF NOT 
060062 104036 EMT 36 
060064 013737 001256 001276 3$: MOV TIME ,TIMES 3SAVE THE ELAPSED TIME VALUE 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
060072 005037 001254 CLR RELERR :CLEAR_THE ‘RELEASE ERROR ° goo OR 
060076 012737 000012 001122 MOV #RMDS , SBDADR 3 FORM THE ADDRESS OF RMDS FOR TYPEOUT 
060104 060037 001122 ADD RO, $BDADR ADD THE 1/0 BASE ADDRESS 
060110 012737 011700 001124 MOV #MOL! PGM'DPR!DRY!VV, SGDDAT ome CONSTANT 
060116 113760 001224 000010 MOVB PORTA, RMCS2(RO) SELECT PORT 
060124 016037 000012 001170 MOV RMD : TMP2 T THE DRIVE “STATUS REGISTER FROM PORT A. 
060132 042737 024001 001170 BIC #PIP!WRLIOM, STMPE sCLEAR DONT CARES 
060140 013737 001170 001164 MOV STMP2,STMPO ;COPY IT INTO ‘STMPO' 
146 042737 100100 001164 BIC WATA'VV,STMPO CLEAR gt SS temoeel BITS FROM THE COPY 
060154 113760 001226 000010 MOVB PORTB,,RMCS2 (RO) :SELECT P T B. 
060162 016037 000012 001172 MOV : TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
060170 042737 024001 001172 BIC #PIP!WRL!OM, ;CLEAR DONT CARES 
060176 013737 001172 001166 MOV STMPS,STMP1 :COPY_ IT’ IN iy 
060204 042737 100100 001166 BIC WATA'VV,STMP1  ;CLEAR PORT DEPENDENT BITS FROM THE C 
060212 023737 001164 001166 CMP STMPO,STMP1 31S THE STATUS REGISTER THE SAME FROM oBOTH PORTS ? 
06022 091006 BNE 66$ 3BR I 
060222 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
060226 001045 BNE 68$ 2BR IF 
060250 104046 EMT 46 
060232 000137 060416 JMP 70$ sBYPASS THE REST OF THE CHECKS 
060236 013737 001170 001126 66S: MOV STMP2,SBDDAT [SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
060244 013737 001226 001240 MOV PORTB,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
060252 113760 001226 000010 MOVB PORTB.RMCS2(RO) ;SELECT PORT 
060260 005737 001164 TST STMPO SEE IF STATUS EQ 0 FROM PORT A. 
060264 001414 BEQ 67$ 3BR IF ZERO 
060266 013737 001 a¢6 001240 MOV PORTA, th SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
060274 013737 001172 001126 MOV $TMP3,$BD :*BAD DATA’ FOR ERROR TYPE OUT 
eats 113760 001224 000010 MOVB PORTA, “RCS? CRO) SELECT PORT A. 
060310 005737 001166 TST STMP1 3SEE IF STATUS EQ ZERO FROM PORT B. 





_—_ms 
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CZRNHAO RM8O DUAL 
146 PORT "A’ RETRIGGER BY DEMAND T 
060314 90101 BNE 68$ BR IF NOT 
060316 01273? 177777 001254 67%: MOV #-1,RELERR > SET *RELEASE ERROR’ INDICATOR 
060 24 012760 600011 000000 MOV ot *RACS1 (RO) SCLEAR THE DRIVE 
060 ; 012760 000013 NOV #13.RMCS1(RO) ‘RELEASE THE DRIVE 
060342 0137 $ 001170 901126 68$: MOV STNP2,SBDDAT LOOK FOR Bit FAILURES WHEN RMDS READ 
060350 013737 001224 00124 MOV PORTA.PTNBR ;CHANGE PORT NUMBER | 
060356 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OOK | 
060364 001401 BEO 9$ [BR IF OK FROM PORT A. | 
060366 104007 EMT 
060370 0137 7 001172 001126 69%: MOV STMP3,SBDDAT | ;CHECK RMDS FOR BIT FAILURES - FROM PORT 8. 
060376 013737 001226 001240 MOV PORTB,PTNBR [CHANGE PORT NUMBE 
060404 023737 001124 001126 CMP SGDDAT,$SBDDAT SEE IF READ OK FROM PORT B. | 
060412 001401 BEQ 70$ BR IF OK 
060414 104007 EMT | 
060416 000240 70$: NOP | 
CHECK THE TIME FROM RETRIGGER TO TIMEOUT | 
060620 023737 001276 001264 CMP TIMES, TIMEAP | ;MEASURED TIME GREATER THAN +25% TOLERANCE ? 
060426 003004 BGT 4$ <BR IF GREATE 
060430 023737 001276 001266 CMP TIMES, TIMEAM | :MEASURED TIME LESS THAN -25% TOLERANCE 
060436 BGE +4 [BR IF NOT 
060440 4$: 
060440 104025 EMT 25 
060442 000004 SCOPE LOOP ? | 
1388 | 
1586 FE RRAAAR AAA A AA AAAERARREEEAREEAAARARARERERERERERERRERRRERARA ERE ERE 
SRTEST 45 PORT 'B' RETRIGGER BY DEMAND TEST 
;* 
;"VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. | 
ie A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 
j* B. WAIT 500 MS AND WRITE 0°B INTO RMDS THROUGH PORT ‘A*. | 
*® (C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR, = - 25% OF THE SPECIFIED 
:* TIME. (THE MEASUREMENT IS MADE FROM STEP * 
t* D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION | 
s@ } 
ie ste seeenneaeeneseetentetertereeententerneneeeereeenneneanenens | 
060444 TS145: 
060444 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
060450 001406 BEQ 2$ <BR IF 
060452 10000 BPL 1$ :BR_IF JUST ENTERED TEST 
0604654 0001 003062 JMP EXEC *RETURN & GET NEXT TEST NUMBER 
060660 012737 177777 001300 1$: MOV *SET SINGLE TEST INDICATOR 
060666 012737 060502 001106 2S: MOV a St PADR *SETUP SCOPE LOOP ADDRESS 
060474 012737 060502 001110 ane: MOV #TEST45.S$LPERR SETUP ERROR tOOP ADDRESS | 
060502 112737 000045 001102 " MOVB #45, $TSTNM :MOVE #45 TO TEST NUMBER | 
060510 012706 001100 MOV WSTACK,SP ‘LOAD THE STACK POINTER 
060514 012737 000002 001176 MOV = #2. , STIMES 3:D0 2. ITERATIONS 





5 
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CZRNHAO RM8O DUAL PORT PT1 MACRO V04. 00. 1S-JAN-82 07:09:22 PAGE 9-116 SEQ 0153 | 
145 PORT oe LRETRIGGER BY DEMAND T 
1588 
sCLEAR ATTENTION BITS FOR BOTH PORTS 
060522 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
530 005060 000012 CLR RMDS (RO) TSEIZE THE DRIVE 
0534 012760 000011 000000 MOV Hy »RMCS 1 (RO) TISSUE DRIVE CLEAR 
060542 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
060550 113760 001226 000010 MOVB SORTS. RACSS CRO) *SELECT PORT 48 
060556 005060 00007 CLR RMDS (RO) SSEIZE THE DRIVE THROUGH PORT 'B' | 
060562 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
570 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
:SEIZE THE DRIVE THROUGH PORT B 
060576 113760 001226 000010 MOVB PORTS. RMCS2(RO) ;SELECT PORT B 
060604 013737 001226 001242 MOV PORT: B,SEIZPT sSTORE SEIZING PORT’S ADDRESS 
060612 005060 000012 CLR RMDS (RO) sWRITE RM 
060616 013737 001224 001244 MOV PORTA, OPPRT OPPOSITE’ PORT ADDRESS 
:START THE TIMER 
060624 005037 001256 CLR TIME ZCLEAR THE ELAPSED TIME COUNTER 
060630 012737 000764 001260 MOV #500. WATCH ‘SET WATCH TO TIM. MS 
060636 005737 001260 1$: TST WATCH * WATCH EQUAL TO ZERO 
0642 001375 BNE 1$ [BR IF NOT 
sSTART THE TIMER 
060644 005037 001256 CLR TIME :CLEAR THE ELAPSED TAME COUNTER 
060650 012737 003720 001260 MOV #2000..WATCH SET WATCH TO 2000. 
:RETRIGGER THE TIMEOUT ONE-SHOT 
060656 005760 000012 TST RMDS (RO) :RETRIGGER T THE ONE-SHOT 
060662 113760 001224 000010 MOVB —— PORTA, RMCS2(RO) SELECT P 
060670 013737 001224 001240 MOV PORTA,PTNBR sMOVE POR | Dons TO LOCATION FOR TYPEOUT 
060676 005760 000012 2$: TST RMDS (RO) VOAIT FOR TIMEOU 
060702 001004 BNE 3$ 7BR IF TIMEOUT OCCURRED 
060704 005737 001260 TST WATCH WATCH EQUAL TO ZERO ? 
060710 001372 BNE 2$ ‘BR IF 
060712 104036 EMT 36 
060714 013737 001256 001276 3$: MOV TIME, TIMES :SAVE THE ELAPSED TIME VALUE 
sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
060722 005037 001254 CLR RELERR CLEAR THE "RELEASE ERROR ° INDICATOR 
060726 012737 000012 001122 MOV #RMDS,SBDADR  :F ORM THE PODRESS OF RMDS FOR TYPEOUT | 
060734 060037 001122 ADD RO, SBDADR ADD THE 1/0 BASE ADDRESS 
060740 012737 011700 001124 MOV #MOL 'PGM!DPR!DRY! VV, $<DDA’ : COMPARISON CONSTANT 
060746 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A | 
060754 016037 000012 001170 MOV S(RO) «$ MP2 :GET THE rORIVE "STATUS REGISTER FROM PORT A. 
60762 042737 024001 001170 BIC #PIP!WRL'OM,$TMPS sCLEAR DONT CARES 
060770 013737 001170 001164 MOV STMP2,$TMPO 3COPY IT’ INTO *STMPO' 
060776 042737 190190 001164 BIC WATA'VV,STMPC : CLEAR PORT DEPENDENT BITS FROM THE COPY 
061004 113760 001226 000010 MOVB  PORTB,RMCS2(RO) SELECT 
061012 016037 000012 001172 MOV RMDS(RO).$ GET THE PORIVE "STATUS REGISTER FROM PORT B. | 
061020 042737 024001 001172 BIC RPP! URLIOM,STMPS. ZCLEAR DONT CARES | 
| 
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001172 
100100 
001164 


001164 


001164 
001224 


001124 


001276 
001276 


GGER BY DEMAND T 


001166 


001126 
001240 
001126 


001126 
001240 
001126 


001272 
001274 


MOV STMP3,STMP1 sCOPY IT INTO ‘S$TMP1° 
BIC HATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
MP MPO ,STMP1 


C STMPO, 31S THE STATUS REGISTER THE SAME FRCM BOTH PORTS ? 
BNE 66$ IF NOT 
TST STMPO :REGISTERS ARE THE SAME: ARE THEY ZERG ? 
BNE 68$ 3BR IF 
EMT 46 
JMP 70$ sBYPASS THE REST OF THE pecs 
66$: MOV STMP2 ,SBDDAT 3SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTB,PTNBR i SEIZING oT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORTB.RMCS2(RO) ;SELECT T B. 
TST STMPO SEE IF STATUS EQ 0 FROM PORT A. 
BEQ 67$ 2BR IF ZER 
MOV PORTA,PTNBR ; EIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV $TMP3,SBDDAT "BAD DATA’ = ERROR TYPE OUT 


MOVB PORTA,RMCS2(RO) SSELECT PORT 
TST STMP1 sSEE IF STATUS "EQ ZERO FROM PORT B. 
BNE 68$ :BR_IF 

67$: MOV #-1 ,RELERR sSET "RELEASE ERROR’ INDICATOR 

MOV #11,RMCS1(RO) LEAR TH 

MOV $15. ;RMCS1 (RO) RELEASE THE DRIVE 


68$: MOV STP, SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
MOV PORTA.PTNBR ; CHANGE PORT NUMBER 

CMP SGDDAT ,SBDDAT L BITS Ok ? 

BEQ 69$ ‘BR IF OK FROM PORT A. 


7 
69$: MOV S$TMP3,SBDDAT ; CHECK RMDS ¢- BIT FAILURES = FROM PORT B. 
MOV PORTB,PTNBR CHANGE PORT N R 
CMP SGDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
70$ 7BR IF OK 


one 


70$: NOP 
sCHECK THE TIME FROM RETRIGGER TO TIMEOUT 
CMP TIMES, TIMEBP a TIME GREATER THAN +25% TOLERANCE ? 


BGT 
CMP TIMES, TIMEBM BE ASURED TIME LESS THAN -25% TOLERANCE 
BGE +4 ‘BR IF NOT 
4$: 
EMT 25 
SCOPE ;LOOP ? 
LRRRAAAAAAAA AAA RR ERR EREREAEE RARER REREEEERERAEARARRRERERERRER ERS 
;STEST 46 PORT ‘A* TIMEOUT/RELEASE TEST 


VERITY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


A. SEIZE THE DRIVE THROUGH PORT ‘B* BY WRITING 0°S INTO RMDS. 
SET PORT REQUEST BY WRITING 0°S INTO RMDS FROM PORT ‘A’. 


C. ISSUE A RELEASE COMMAND FROM PORT 'B'. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA BIT DID NOT 


sean an ee 
@ 
. 





SEQ 0154 


[ 


12 weicny 
PT1_ MACRO VO4.00 15=JAN=B2 07:09:22 PAGE 9-118. SEQ 0155 c2 
* TIMEOUT/RELEASE TEST cL 


:* SET FOR PORT "B'. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘A’. 
t® D. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 
:* BEEN RELEASED. 
t® £. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
7* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
* 
+: 2 “keen RARER EEEEAERERRAEERAEEEEREEEREEAEREERAARRERAREREE 
061274 TST46: 
061274 005737 001300 TST KYBCTL sPERFORMING ONLY SINGLE TEST ? | 
061300 0014 BEQ 2$ [BR IF NOT 
061302 10000 BPL BR IF JUST ENTERED TEST 
061304 000137 003062 JMP EXEC URN & GET NEXT TEST NUMBER | 
061310 012737 177777 001300 1$: MOV #-1, KYBCTL RET SINGLE TEST INDICATOR 
061316 012737 061332 001106 2$: MOV ATEST46,$LPADR SETUP SCOPE LOOP ADDRESS | 
061324 012737 061332 001110 aed MOV #TESTG6,$LPERR SETUP ERROR LOOP ADDRESS 
061332 112737 000046 001102 “ MOVB «#46, STSTNM :MOVE #46 TO TEST NUMBER 
061340 012706 001100 MOV #STACK,SP LOAD THE STACK POINTER 
061344 012737 000002 001176 MOV #2.,$TIMES +;D0 2. ITERATIONS | 
SCLEAR ATTENTION BITS FOR BOTH PORTS | 
061352 113760 001224 000010 MOVB —PORTA,RMCS2(RO) ; SELECT PORT BA | 
061360 005060 000012 CLR RMDS (RO) "SEIZE THE DRIVE | 
061364 012760 000011 000000 MOV #11 -RACS1 (RO? SISSUE DRIVE CLEAR 
061372 012760 000013 000000 MOV #13.RMCS1(RO) :RELEASE THE DRIVE | 
061400 113760 001226 000010 MOVB PORTE. RMCS2(RO) :SELECT PORT #8 
061406 005060 000012 CLR RMDS (RO) “SEIZE THE DRIVE THROUGH PORT °B' 
061412 012749 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
061420 012760 000013 000000 MOV #13.RMCS1(RO) RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT B 
061426 113760 001226 000010 MOVB PORTE, RMCS2(RO) _:SELECT PORT B 
061434 013737 001226 001242 MOV PORTB.SEIZPT ;STORE SEIZING PORT'S ADDRESS 
061442 005060 000012 CLR RDS (RO) "WRIT 
1446 013737 001224 001244 MOV PORTA, OPP OsITE* font ADDRESS 
061454 113760 001224 000010 MOVB «PORTA. mcs (RO) SELECT P 
1462 013737 001224 001240 MOV PORTA. PTNBR 0) vi PORT ADDRESS TO LOCATION FOR TYPEOUT 
:SET REQUEST THROUGH PORT A 
061470 005060 000012 CLR RMDS (RO) SET REQUEST FOR PORT A 
061474 113760 001226 000010 MOVB  PORTB,RMCS2(RO) “:SELECT PORT B 
061502 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
:RELEASE THE DRIVE THROUGH PORT 8 
061510 012760 000013 000000 MOV #13.RMCS1(RO) ;RELEASE DRIVE THROUGH PORT B 
:WAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%) | 
061516 013737 001264 001260 MOV TIMEAP,WATCH | ;SET WATCH TO MEASURED TIMEOUT VALUE + 25% | 
} 








N 12 
CZRNHAO RMBO DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-119 SEQ 0156 
146 PORT *A’ TIMEOUT/RELEASE TEST 
:VERIFY THAT THE DRIVE IS SEIZED BY PORT A 
061524 005037 00125 CLR CKERR ZCLEAR THE "CHECK ERROR’ INDICATOR 
061530 016037 000012 001126 MOV RMDS(RO) ,SBDDAT ";GET CONTENTS OF RMDS 
061536 012737 000012 001122 MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
061544 060037 00112 ADD RO, $BDADR * ;ADD RH/RM BASE ADDRESS 
061550 005037 001124 CLR $GDDAT [WHAT REGISTER OULD 
061554 023737 001124 001126 CMP SGDDAT,$BDDAT :1S THE REGISTER OK ? 
061562 001403 BEQ 66$ [BR IF OK 
061564 104031 EMT 31 
061566 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
061572 000240 66$: NOP 
061574 005737 001250 TST CKERR :REGISTER OK ? 
061600 001402 BEQ +6 BR IF 
061602 000137 062156 JMP is [BYPASS REST OF TEST IF NOT 
;WAIT FOR THE TIMER TO RELEASE THE DRIVE 
061606 005737 001260 TST ATCH :WATCH EQUAL ZERO ? 
061612 001375 BNE oo ‘BR IF NOT 
:CONFIRM THAT THE DRIVE HAS TIMED OUT 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
061614 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR 
061620 012737 000012 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF pens FOR TYPEOUT 
061626 060037 00112 ADD RO, $BDADR ZADD THE 1/0 BASE ADDRESS 
061632 012737 011700 001124 MOV #MOL'PGM'DPR!DRY!VV,S$GDDAT ;COMPARISON CONSTANT 
061640 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SEL LECT RT A. 
061646 016037 000012 001170 MOV STMP T THE DRIVE STATUS REGISTER FROM PORT A. 
061654 042737 024001 001170 BIC #PIP!URL1OM, STMPS :CLEAR DONT CARES 
1662 013737 001170 001164 MOV STMP2. STMPO ;COPY IT" INTO *$TMPO* 
061670 042737 100100 001164 BIC HATA! YV,$TMPO LEAR PORT DEPENDENT BITS FROM THE COPY 
061676 113760 001226 000010 MOVB _—sCwPORTB, VRMCS2 (RO) *SELECT PORT 8. 
061704 016037 000012 001172 MOV RMDS (RO) , STMPS “GET THE DRIVE STATUS REGISTER FROM PORT B. 
061712 042737 024001 001172 BIC #PIP!WRL'OM,STMP :CLEAR DONT CARES 
061720 013737 001172 001166 MOV $TMP3,STMP1 sCOPY IT INTO *$TMP1° 
061726 042737 100100 001166 BI’ #ATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
061734 023737 001164 001166 CMP STMPO,$TMP1 ‘I$ THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
061742 001006 BNE 68$ ‘BR 
061744 005737 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
061750 001045 BNE 70$ ‘BR IF NOT 
061752 104046 EMT 46 
061754 000137 062154 JMP 72$ sBYPASS THE REST OF THE CHECKS 
061760 013737 001170 001126 68$: MOV STMP2, SBDDAT ?SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
061766 013737 001226 001240 MOV PORTB.PTNB SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
061774 113760 001226 000010 MOVB _—sC—wPORTB,, RACES (ROD SSELECT P 
062002 005737 001164 TST STMPO SSEE IF STATUS EQ 0 FROM PORT A. 
2006 001414 BEQ 69$ 3BR IF ZER 
062010 013737 001224 001240 MOV PORTA,PTNBR * SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
062016 013737 001172 001126 MOV STMP3.$BDDAT __: "BAD DATA’ FOR ERROR TYPE OUT 
062024 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A 
062032 005737 001166 TST STMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 
062036 001012 BNE 70$ ‘BR IF NOT 
062040 o1273 177777 001254 69$: MOV #-1,RELERR SET "RELEASE ERROR’ INDICATOR 
062046 012762 000011 000000 MOV mi *RMCS1(RO)  :CLEAR THE DRIVE 
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000004 


000013 


001170 
001224 
100000 
001124 


001172 


001124 


000012 


000000 


001300 
001106 
001110 
001102 


001176 


000010 


000000 
000000 
000010 


MOV * sepamiataieaaes sRELEASE THE DRIVE 
70$: MOV $TMP2,SBDDAT + LOOK FOR BIT FAILURES WHEN RMDS READ 


MOV PORTA.PTNBR HANGE PORT NUMBE 
BIC HATA, $BDDAT :DON'T CHECK THE ATTN BIT 
CMP SeDDAT, $BDDAT ALL K ? 
BEQ g 71$ [BR IF OK FROM PORT A. 
71$: MOV $TMP3,$SBDDAT CHECK RMDS FoR BIT FAILURES = FROM PORT 8. 
MOV PORTB.PTNBR : CHANGE P 
BIC HATA, $BDDAT SDON'T check WHE ATTN BIT 
CMP SGDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
BEQ 72$ :BR IF OK 
EMT 7 
72$: NOP 
1$: SCOPE ;LOOP ? 
SRRERAAARARRRERERREREREERERERARAARAARRERARERERRAERAARERAARERAANS 
:#TEST 47 PORT "3" TIMEOUT/RELEASE TEST 


i VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 


i SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 
:* A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0'S INTO RMDS. 
i B. SET PORT REQUEST BY WRITING 0°S INTO RMDS FROM PORT ‘B’. 
t® (C. ISSUE A RELEASE COMMAND FROM PORT ‘A’. VERIFY THAT THE DRIVE 
i HAS SWITCHED TO THE OTHER PORT AND THAT THE 'fTA’ BIT DID NOT 
:* SET FOR PORT 'A*. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘B'. 
te vy. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 
:¢ BEEN RELEASED. 
Ot chaeie csc alana nt aanammcnemie meatal ti) 
TST4 

IST kyBCTL : PERFORMING ONLY SINGLE TEST ? 

BPL 1$ ‘BR IF JUST ENTERED TEST 

JMP EXEC ‘RETURN & GET NEXT TEST NUMBER 
1$: MOV #-1, KYBCTL [SET SINGLE TEST INDICATOR 
2$: MOV aTESTAr. SLPADR SETUP SCOPE LOOP ADDRESS 
sacar MOV #TEST47.$LPERR SETUP ERROR LOOP ADDRESS 

" MOVB «#47, STSTNM sMOVE #47 TO TEST NUMBER 
MOV #STACK, SP “LOAD THE STACK POINTER 
MOV #2. ,STIMES +:D0 2. ITERATIONS 


3CLEAR ATTENTION BITS FOR BOTH PORTS 


MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
CLR RMDS (RO) 7SEIZE THE DRIVE 
MOV #11 RACs (AO? ISSUE DRIVE CLEAR 
MOV #13,RMCS1(RO) RELEASE THE DRIVE 
MOVB PORTS. RMCSS (RO) 7SELECT PORT #B 


SEQ 0157 | 
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062272 005060 S0nel¢ CLR RMDS (RO) sSEIZE THE DRIVE — PORT 'B’ 
062276 012760 0000 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
062504 012760 800015 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
:SEIZE THE DRIVE THROUGH PORT A 
062312 113760 001224 000010 MOVB PORTA, ph Se ;SELECT PORT A 
062320 613737 001224 001242 MOV PORTA.SEIZPT ;STORE SEIZING PORT'S ADDRESS 
062326 005060 000012 CLR a4 hy zw 
062332 013737 001226 001244 MOV PORTB,O ; OPPOSITE’ ai ADDRESS 
062340 113760 0012¢. 000010 MOVB PORTB, “RMCS2 (RO) ;SELECT PORT B 
062346 013757 001226 001240 MOV PORTB,PTNBR Sok PORT ADDRESS TO LOCATION FOR TYPEOUT 
:SET REQUEST THROUGH PORT B 
062354 005060 000012 CLR RMDS (RO) 3SET i 8 FOR PORT B 
062360 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT P 
062366 0137357 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
. sRELEASE THE DRIVE THROUGH PORT A 
062374 012760 000013 000000 MOV #13,RMCS1(RO) ;RELEASE DRIVE THROUGH PORT A 
sWAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%) 
062402 013737 001272 001260 MOV TIMEBP ,WATCH ;SET WATCH TO MEASURED TIMEOUT VALUE + 25% 
;VERIFY THAT THE DRIVE IS SEIZED BY PORT B 
062410 005037 001250 CLR CKERR sCLEAR THE ‘CHECK a INDICATOR 
062414 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF 
062422 (12737 000012 001122 MOV #RMDS .SBDADR ;FORM REGISTER AD SARESS OF ERROR MESSAGE 
062430 060037 001122 ADD RO, SBDADR sADD R RH/RM BASE ADDRESS 
Bos 73 005037 001124 CLR $GDDAT WHAT REGISTER —_ BE 
062440 0237357 001124 001126 CMP S$GDDAT,$BDDAT 1S THE REGISTER 0 
062446 001403 BEQ 66$ BR IF OK 
062450 104 EMT 31 
062452 005137 001250 COM CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 
062456 000240 66$: NOP 
062460 005737 001250 TST CKERR sREGISTER OK ? 
062464 001402 BEQ +6 : OK 
062466 0001357 063042 JMP 1$ sBYPASS REST OF TEST IF NOT 
;WAIT ‘o. ne gh TO RELEASE A DRIVE 
062472 005737 001260 WATCH TCH EQUAL ZERO ? 
062476 001375 BNE oa iBR IF NOT 


:CONFIRM THAT THE DRIVE HAS TIMED OUT 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


062500 005037 001254 CLR RELERR sCLEAR THE ‘RELEASE ERROR ° INDICATOR 

062504 012737 pp 001s 001122 MOV #RMDS ,SBDADR FORM THE ADDRESS e ones FOR TYPEOUT 
2512 060037 00112 ADD RO, SBDADR 32D TH HE 1/0 BASE ADDRESS 

062516 012737 011700 001124 MOV #MOL'PGM!DPR!DRY!VV,$GDDAT BORARI SCH CONSTANT 
2524 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
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{VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
A. SEIZE THE DRIVE THROUGH P° :T ‘A’ BY WRITING 0°S INTO RMDS. 
B. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT ‘A’. 


C. READ “yy t RMER2 THROUGH PORT °8'. VERIFY THAT PORT 
'B’ SEES 0°S FRUM EACH OF THESE REGISTERS. 


062532 016037 000012 001170 MOV RMDS (RO)  STB2 -GET THE DRIVE STATUS REGISTER FROM PORT A | 
062540 O42? 7 024001 001170 BIC #PIP'WRL'OM,STMP2 :CLEAR DONT CARES 
062546 013737 001170 001164 MOV STHP3 STHPO :COPY IT INTO 'S$TMPO' 
062554 042737 100100 001164 BIC WATA'VV,$TMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY | 
062562 118760 001226 000010 MOVE PORTE ,RACS2(RO) :$ SELECT PORT B. 
062570 016037 000012 00117¢ MOV R ;STMPS | :GET THE DRIVE STATUS REGISTER FROM PORT B. 
062576 042737 024001 00117 BIC #PIP!WRL'OM, :CLEAR DONT CARES 
062604 013737 001172 001166 MOY STMP3,$TMP1 3COPY IT INTO *$TMP1° 
062612 042737 100100 001166 BIC WATA!VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
062620 023737 001164 001166 CMP $TMPO,S$TMP1 tIS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
062626 ©1006 BNE 68$ ‘BR IF NO 
062630 005737 001164 TST $TMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 
2634 001045 BNE 70$ ‘BR IF NOT 
062636 104046 EMT 46 
062640 000137 063040 JMP 72$ :BYPASS THE REST OF THE CHECKS 
2644 013737 001170 001126 68$: MOV STMP2,SBDDAT 3SET UP POSSIBLE BAD DATA FOR FRROR MESSAGE we 
062652 013737 001226 001240 MOV PORTB,PTNBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
062660 113760 001226 000010 MOVB PORTB.RMCS2(RO) :SELECT PORT B. 
062666 005737 001164 ST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
2672 001414 BEQ 69$ “BR IF 2 
062674 013737 001224 001240 MOV PORTA, PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
2702 013737 001172 001126 MOV STMP3,$BDDAT _—; ‘BAD DATA’ for ERROR TYPE OUT 
062710 113760 001224 000010 MOV8 _— PORTA. RMCS2(RO) :SELECT PORT 
062716 005737 001166 TST STMP1 'SEE IF STATUS” EQ ZERO FROM PORT B. 
062722 001012 BNE 70$ ‘BR I 
062724 012737 177777 001254 69$: MOV #-1,RELERR :SET RELEASE ERROR’ INDICATOR 
062732 012760 000011 000000 MOV qi “RMCS1(RO)  :CLEAR THE DRIVE 
062740 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
062746 104035 EMT 
062750 013737 001170 001126 70$:  ##MOV $TMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
062756 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
062764 042737 100000 001126 BIC HATA, SBDDAT SDON'T CHECK THE ATTN BIT 
062772 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS O 
063 001401 BEQ 71$ :BR IF OK OKon PORT A. 
063002 104007 EMT 7 
3004 013737 001172 001126 71S: MOV STMP3, SBDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
3012 013737 001226 001240 MOV PORTB,PTNBR ; CHANGE P R 
063020 042737 100000 001126 BIC HATA, $BDDAT [DON'T CHECK THE ATTN BIT 
063026 023737 001124 001126 CMP $GDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
063034 001401 BEQ 72$ :BR IF OK 
3036 104007 EMT 7 
063040 000240 72$: NOP 
3042 000004 1$: SCOPE ;LOOP ? 
196 
1705 FERRARA RERA RARER RARE RATER RARARAARA ARERR RARER AE RARER RE REE 
. jHTEST 50 PORT 'A' SEIZE ACCESS TEST 
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z:* D. CLEAR RMER1, RMER2 THROUGH PORT ‘A’. 
ze 
s* €. wit ‘s INTO RMER1, RMER2 THROUGH POR’ ‘B*. VERIFY THAT 
3* PORT ‘A’ SEES 0°S FROM EACH OF THESE REGISTERS. 
3* 
s* OF. pA oe THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE ot Ng HAS 
3* SWITCHED TO PORT 'B* AND THAT THE ATTENTION BIT FOR PORT ‘B' IS 
3* SET AND THE ATTENTION BIT FOR PORT ‘A‘ IS NOT SET. 
3* 
:* G. ISSUE A RELEASE COMMAND THROUGH PORT ‘B*. VERIFY THAT THE DRIVE 
3* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
sk 
*: REAR EAE EERE REREERREAEERARAEREEREREEEREEREERERREERKREKEE 
063044 TST50: 
063044 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
063050 001406 BEQ 2$ IF NOT 
063052 100002 BPL 1$ “BR IF JUST ENTERED TEST 
063054 000137 003062 JMP <. [RETURN & GET NEXT TEST NUMBER 
063060 012737 177777 001300 1$: MOV #-1,K 3SET SINGLE TEST INDICATOR 
063066 012737 063102 001106 2$: MOV aTESTSO. SLPADR sSETUP SCOPE LOOP ADDRESS 
b63073 012737 063102 001110 TESTSO MOV #TEST5O, $LPERR ;SETUP ERROR LOOP ADDRESS 
063102 112737 000050 001102 MOVB #50,$TSTNM sMOVE #50 TO TEST NUMBER 
063110 012706 001100 MOV #STACK,SP [LOAD THE STACK POINTER 
1706 063114 012737 000012 001176 MOV #10. ,STIMES 3:D0 10. ITERATIONS 
1745 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
063122 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT ons aa 
063130 005060 000012 CLR RMDS (RO) SSEIZE T HE on IVE 
063134 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
063142 012760 000013 000000 MOV #13-RMCS1(RO) RELEASE THE DRIVE 
063150 113760 001226 000070 MOVB PORTB,RMCS2(RO) :SELECT PORT #8 
063156 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE THROUGH PORT ‘B" 
063162 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
063170 012760 000013 000C00 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT A 
063176 113760 001224 000010 MOVB aang RMCS2(RO) ;SELECT PORT 
32 013737 001224 001242 MOV PORT. ASE! 7PT STOR E SEIZING PORT S ADDRESS 
063212 005060 000012 CLR RMDS (RO) synay E RMDS 
063216 013737 001226 001244 MOV PORTB,OPPRT *OPPOSITE’ PORT ADDRESS 
063224 012760 177777 000014 MOV #-1,RMER1(RO) LOAD 1's INTO RMER1 THROUGH PORT A 
063232 012760 177777 000042 MOV #-1,RMER2(RO)  ;LOAD 1°S INTO RMER2 THROUGH PORT A 
063240 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
063246 013737 001226 001240 MOV PORTB,PTNBR ;MOV vE PORT ADDRESS TO LOCATION FOR TYPEOUT 
063254 004737 064114 JSR PC, TST50B CHECK THE RE STSTERS THROUGH PORT B 
063260 113760 001224 000010 MOVB PORTA,RMCS2(RO) ";SELECT PORT 
063266 013737 001224 001240 MOV PORTA, PTNBR :MOvE PORT ADDRESS TO LOcaTian FOR TYPEOUT 
063274 005060 000042 CLR RMER2 (RO) CLEAR RMER2 ON PORT 
063300 005060 000014 CLR RMER1 (RO) CLEAR RMER1 ON PORT 
063304 013760 001236 000016 MOV ASR1,RMAS (RO) [CLEAR THE ATTENTION BIT FOR PORT A 
063312 113760 001226 000010 MOVB PORTB,RMCS2(RO) ©;SELECT POR 
063320 013737 oles 001240 MOV PORTB,PTNBR sMOVE P PORT ADDRESS TO LOCATION FOR TYPEOUT 
063326 012760 177777 000014 MOV #-1,RMER1(RO) ;LOAD 1°S INTO RMER1 THROUGH PORT B 
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CZRNHAO R RM8O DUAL PORT 
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063334 012760 177777 000042 MOV #=-1,RMER2Z (RO) z;LOAD 1° ‘. sare RMER2 THROUGH PORT B 
063342 11 760 001224 000010 MOVB PORTA, RMCS2(RO) — ; SELECT 
063350 0137 001224 001240 MOV PORTA,PTNBR sMovE PORT ADDRESS TO LOCATION FOR TYPEOUT 
063356 004737 064114 JSR PC, TST50B sCHECK THE REGISTERS THROUGH PORT A 
RELEASE THE DRIVE FROM PORT A 
063362 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ;SELECT PORT A 
063370 013737 001224 001240 MOV PORTA,PTNBR ;MOV vE PORT ADDRESS TO LOCATION FOR TYPEOUT 
063374 012760 000013 000000 MGV #13,RMCS1(RO) s ISSUE RELEASE THROUGH PORT A 
VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 
063404 005037 001254 CLR RELERR sCLEAR “RELEASE ERROR’ INDICATOR 
063410 012737 111700 001124 MOV #ATA!MOL !PGM!DPRIDRY! VV, $GDDAT 3; COMPAR _ ON CONSTANT 
063416 012737 000012 001122 MOV WRMDS ,SBDADR REGISTER ADDRESS INCREMENT 
063424 060037 001122 ADD RO, SBDADR sREGISTER erat ADDRESS FOR TYPEOUT 
3430 113760 001226 000010 MOVB = PORTB,RMCS2(RO) ";SELECT PORT B 
3436 013737 001226 001240 MOV PORTB, R ;MOV vE P PORT ADDRESS TO LOCATION FOR TYPEOUT 
063444 016037 000012 001164 MOV RMDS(RO).$TMPO ;READ STATUS REGISTER FROM PORT B 
3452 113760 001224 000010 MOVB PORTA, RMCS2(RO) . ;SELECT PORT A 
063460 013737 001224 001240 MOV PORTA, PTNBR :MOV E PORT ADDRESS TO yoo ey FOR TYPEOUT 
063466 016037 000012 001126 MOV RMDS(RO), SBDDAT sDRIVE ors FROM PORT A 
063474 001404 BEQ 66$ :BR IF STATUS FROM PORT A ZERO 
063476 005737 001164 TST $TMPO 1S Uarus FROM PORT B ZERO ? 
063502 001401 BEQ 66S [BR IF ZERO 
063504 104031 EMT 31 
063506 013737 001164 001126 66$: MOV STMPO,$BDDAT :CHECK STATUS FROM PORT B 
063514 013737 001226 001240 MOV PORTB,PTNBR + CHAN GE PORT yoni = TYPEOUT 
063522 023737 001124 001126 CMP SGDDAT, SBDDAT * COMPARE WITH CONSTAN 
063530 001401 BEQ 67$ [BR IF OK 
063532 104027 EMT 27 
063534 000240 67$: NOP 
;RELEASE THE DRIVE FROM PORT B 
063536 113760 001226 000010 MOVB PORTH, RMCS2(RO) ;SELECT PORT B 
063544 013737 001226 001240 MOV PORTB,PTNBR ;MOV ve PORT ADDRESS TO LOCATION FOR TYPEOUT 
063552 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
063560 005037 001254 CLR RELERR :CLEAR THE RELEASE ERROR ° INDICATOR 
0635 012757 000012 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
063572 060037 001122 ADD RO, $BDADR :ADD_T HE 1/0 BASE ADDRESS 
063576 012737 011700 001124 MOV #MOL'!PGM!DPR!DRY! VV, SGDDAT eames CONSTANT 
063604 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT 
063612 016037 000012 001170 RMDS (RO), STMP2 *GET THE ORIVE “STATUS REGISTER FROM PORT A. 
063620 042737 024001 001170 BIC #PIP!WRL'OM,STMP ZCLEAR DONT CARES 
063626 013737 001170 001164 MOV STMP2,STMPO zCOPY IT “INTO *S$TMPO' 
36. 042737 100100 001164 BIC #ATA' VV, STMPO CLEAR + bem De ate BITS FROM THE COPY 
063642 113760 001226 000010 MOVB PORTE Cae Serer T B. 
063650 016037 000012 001172 MOV goer THE PORIVE STATUS REGISTER FROM PORT B. 
063656 042737 024001 001172 BIC ° OS TURE CLEAR DONT CARES 
063664 013737 001172 001166 MOV STMP3, RLiOn.S 5 IT’ INTO *$TMP1° 
063672 Beer e 100100 001166 BIC WATAIVV STMP1 * CLEAR PORT DEPENDENT BITS FROM THE COPY 
063700 023737 001164 001166 CMP STMPO, $TMP1 IS THE STATUS REG'STER THE SAME FROM BOTH PORTS ? 


—— 
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706 001006 BNE 68$ :BR IF NOT 
063710 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
063714 001045 BNE 70$ 7BR IF NOT 
063716 104046 EMT 46 
063720 900137 064104 JMP 72$ sBYPASS THE REST OF THE CHECK 
063724 013737 001170 001126 68$: MOV STMP2,$BDDAT ;:SET UP POSSIBLE BAD DATA FOR sERROR MESSAGE 
063732 013737 226 001240 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
063740 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT 8. 
063746 005737 001164 TST $TMPO SEE IF STATUS EQ 0 FROM PORT A. 
063752 001414 BEQ 69$ BR RO 
063754 013737 001224 001240 MOV PORTA,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL | 
063762 013737 001172 001126 MOV STMP3,$BDDAT _ ;'BAD FOR ERROR TYPE OUT 
063770 113760 001224 000010 MOVB PORTA, RMCS2(RO) 3SEL ect A PORT A. 
063776 005737 001166 TST $TMP1 ‘SEE IF STATUS EQ ZERO FROM PORT B. 
064002 901012 BNE 70$ IF NOT 
064 012737 177777 001254 69$: MOV #-1,RELERR :SET "RELEASE ERROR’ INDICATOR 
064012 012760 000011 000000 MOV #11.RMCS1(RO)  :CLEAR THE DRI 
064020 012760 000013 000000 MOV #13.RMCS1(RO) :RELEASE THE DRIVE 
064026 104026 EMT 26 
064030 013737 001170 001126 70$:  # MOV $TMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ | 
064036 013737 001224 001240 MOV PORTA, PTNBR ; CHANGE PORT NUMBER 
064044 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
064052 001401 BEQ 71$ ‘BR IF OK FROM PORT A. 
064054 104907 EMT 7 
064056 013737 001172 001126 71$: MOV $TMP3,$BDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
064 013727 001226 001240 MOV PORTB,PTNBR *CHANGE PORT R 
064072 023737 001124 001126 CMP SGDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
064100 601401 BEQ 72$ :BR IF OK 
064102 104007 EMT 7 
064104 000240 72$: NOP 
064106 000004 SCOPE :LOOP ? 

1746 064110 000137 064336 JMP TST51 :GO TO THE NEXT TEST 

:CHECK THE REGISTERS ON THE SELECTED PORT 

064114 TST50B: | 
064114 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
064120 016037 000014 001126 MOV RMER1(RO),SBDDAT ;GET CONTENTS OF 1 
064126 012737 000014 001122 MOV ARMER Ri jSBDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
064134 37 001122 ADD RO.$8 :ADD_RH/RM BASE ADDRESS 
064140 005037 001124 CLR SeODAY WHAT REGISTER SHOULD BE 
064144 023737 001124 001126 CMP SGDDAT.$BDDAT :1S THE REGISTER OK ? | 
064152 001403 BEQ 64$ :BR IF OK 
064154 104006 EMT f 
064156 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
064162 016037 000000 001126 64$: MOV RMCS1(RO),$BDDAT ZGET THE CONTENTS OF RMCS1 
064170 012737 000000 001122 MOV #RMCS1,$BDADR ;FORM DRESS OF REGISTER 
064176 060037 001122 ADD RO, SBDADR DRESS BASE 
064202 032737 020060 001126 BIT #MCPE , SBDDAT ‘1S "MCPE' SET ? 
064210 001404 BEQ 65$ :BR IF NOT 
064212 104011 EMT 11 | 
064214 012760 040000 000000 MOV ATRE,RMCS1(RO) ;:CLEAR ‘MCPE’ 
064222 000240 65$: NOP 
064224 005037 001250 CLR CKE ZCLEAR THE "CHECK ERROR’ INDICATOR 
064230 016037 000042 001126 MOV ERERD (RO), SBDDAT ;:GET CONTENTS OF RMER2 
004236 012737 000042 001122 MOV ARMER2, SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE | 
064244 060037 001122 ADD RO, $BDADR sADD RH/RM BASE ADDRESS 


a 
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T50 PORT ‘A*® SEIZE ACCESS TEST 


064250 005037 901124 CLR S$GDDAT sWHAT REGISTER SHOULD BE 
064254 0257 7 001124 001126 CMP SGDDAT,SBDDAT 1S THE REGISTER OK ? 
064262 1403 BEQ 66$ BR IF OK 
064264 104006 EMT 
064266 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
064272 016037 000 001126 66$: MOV RMCS1(RO),$BDDAT’ ;GET THE CONTENTS OF RMCS1 
064 012737 000 001122 MOV #RMCS1,$BDADR  ;FORM ADDRESS OF REGISTER 
064506 060057 001122 ADD RO, SBDADR TADDRESS BASE 
064312 032737 020000 001126 BIT WMCPE,$BDDAT  :1S 'MCPE* SET ? 
064320 001404 BEQ 67$ BR IF NOT 
064322 104011 EMT 11 
064324 012760 040000 000000 MOV #TRE,RMCS1(RO) CLEAR *MCPE® 
064332 000240 67$: NOP 
064334 000207 RTS PC RETURN 
1595 
1773 4 FRRAAAAAAAAAAR AREER REEREEERERERRERAE RARE ERERERERERERRERARARAA EEE 
:aTEST 51 PORT 'B' SEIZE ACCESS TEST 
VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
3* 
j# A. SEIZE THE DRIVE THROUGH PORT "RB BY WRITING 0'S INTO RMDS. 
t® B. WRITE 1°S INTO RMER1, RMER2 THROUGH ORT 'B’. 
& 
:* C. READ RMER1, RMER2 THROUGH PORT ‘A’. VERIFY THAT PORT 
8 "A" SEES O'S FROM EACH OF THESE REGISTERS. 
t® D. CLEAR RMER1, RMER2 THROUGH PORT 'B’. 
3* 
te €. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT ‘A’. VERIFY THAT 
:* PORT 'B' SEES 0°S FROM EACH OF THESE REGISTERS. 
te F, RELEASE THE DRIVE THROUGH PORT 'B*. VERIFY THAT THE DRIVE HAS 
8 SWITCHED TO PORT 'A' AND THAT THE ATTENTION BIT FOR PORT ‘A’ IS 
:* SET AND THE ATTENTION BIT FOR PORT 'B' IS NOT SET. 
te G. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
ie RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
*t 
+ RRRRRRRRRRAEREERR RARER AERA AAAEAAAAARAEAAAREERAAAE REAR AERR REE 
064336 TST51: 
064336 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
064342 001406 BEQ 2$ ‘BR IF NOT 
064344 100002 BPL 1$ “BR IF JUST ENTERED TEST 
064346 000137 00306 jMP “RETURN & GET NEXT TEST NUMBER 
064352 012737 177777 001300 1$: MOV 4-1, KYBCTL *SET SINGLE TEST INDICATOR 
064360 012737 064374 001106 2$: MOV #TESTS1,$LPADR SETUP SCOPE LOOP ADDRESS 
064566 012737 064374 001110 seal MOV #TEST51.$LPERR SETUP ERROR LOOP ADDRESS 
064374 112737 000051 001102 “move #51, $TSTNM sMOVE #51 TO TEST NUMBER 
064402 012706 001100 MOV #STACK, SP *LOAD THE STACK POINTER 
ome 064406 012737 000012 001176 MOV #10. STIMES +:D0 10. ITERATIONS 
1775 


;CLEAR ATTENTION BITS FOR BOTH PORTS 
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MOVB _— PORTA, RMCS2(RO) 
CLR RMDS (RO) 

MOV #11 ~RACS1 (RO) 
MOV #13.RMCS1(RO) 
MOVB _—~ PORTB, RMCS2(RO) 
CLR (RO) 


RMDS (R 
MOV #11,RMCS1(RO) 
MOV #13,RMCS1(RO) 


;SEIZE THE DRIVE THROUGH PORT B 


will Y RMCS2(RO) 
MOV SEIZPT 
RMD th RO) 


CLR : 

MOV PORTA, OPP 

MOV #1 TAMER T (RO) 
MOV #-1,RMER2 (RO) 
MOVB PORTA, RMCS2 (RO) 
MOV PORTA,PTNBR ;M0 


JSR PC,TST51B 


MOVB PORTB, RMES2(RO) 
MOV PORTB,PTNBR ;MO 
CLR RMER2 (RO) 

CLR RMER1 (RO) 

MOV ASR1, weer 
MOVB PORTA,R ES Nabe 
MOV PORTA, PTNBR 

MOV #-1,RMERI(RO)- 
MOV #-1 ,RMER2 (RO 
MOVB PORTB,.RMCS2(RO) 


MOV PORTB,PTNBR ;MO 


JSR PC,TSTS1B 
sRELEASE THE DRIVE FROM PORT B 

MOVB PORTB, RMCS2(RO) 

MOV POR R 
MOV #13,RMCS1(RO)- 
3VERIFY THAT DRIVE IS SEIZED BY 


CLR RELERR 


;CLEAR 
MOV WATA'MOL !PGM!DPR!DRY! VV, S$GDDAT 


;SELECT nes aA 

7SEIZE THE DRIVE 

ZISSUE DRIVE CLEAR 

ZRELEASE THE DRIVE 

SEL ECT PORT #8 

sSEIZE THE DRIVE anaes PORT ‘B* 
ZISSUE DRIVE CLEAR 

RELEASE THE DRIVE 


SELECT PORT 


8 
;STORE SEIZING PORT'S ADDRESS 


Mp sg | Lp PORT ADDRESS 

3LOAD 1°S INTO RMER1 THROUGH PORT B 
sO rtp pee Were THROUGH PORT B 

nove PORT ADDRESS TO LOCATION FOR at 
oC Ce ont REGISTERS THROUGH PORT 


PORT B 
vé P PORT ADDRESS TO LOCATION FOR TYPEOUT 
sC EAR RMER2 ON oe 8 


AR RMER1 ON PORT B 

<CLEAR THE ATTENTION BIT FOR PORT B 
“SELECT PORT A 

MOVE P PORT ADDRESS TO LOCATION FOR TYPEOUT 
LOAD 1'S INTO RMERT THROUGH PORT 

‘TOAD 1" S, INTO RMER2 THROUGH PORT A 
“SELECT PORT B 

vE PORT ADDRESS TO LOCATION FOR TYPEOUT 
sCHECK THE REGISTERS THROUGH PORT B 


;SELECT PORT B 
PORT ADDRESS TO poop th FOR TYPEOUT 
ISSUE RELEASE THROUGH PORT B 


PORT A WHEN RELEASED BY PORT B 


"eee ERROR’ INDICATOR 
; COMPAR ssn CONSTANT 


MOV #RMDS , SBDADR sREGISTER ADDRESS INCREMENT 
ADD RO, $BDADR iRE R BASE ADDRESS FOR TYPEOUT 
MOVB _— PORTA, RMCS2(RO) eer PORT 
MOV RTA.PTNBR hove’ e ORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RMDS(RO) ,S$TMPO READ STATUS REGISTER FROM PORT 
MOVB _— PORTB, RMCS2(RO) ELECT PORT B 
MOV P R omove p SORT ADDRESS, To LOCATION FOR TYPEOUT 
MOV RMDS(RO),$BDDAT ;DRIVE STAT USF T 
BEQ bes :BR IF STATUS F ROM PORT B ZERO 
TST $TMPO *1S STATUS FROM PORT A ZERO ? 
BEG 668 *BR IF ZERO 

66$: MOV STMPO,SBDDAT CHECK STATUS FROM PORT 

MOV PORTA.PTNBR *CHANGE PORT ADDRESS FOR AT YPEOUT 


SEQ 0164 


ano 
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151 PORT "B' SEIZE ACCESS TEST 
065014 023737 001124 001126 CMP SGDDAT ,SBDDAT sCOMPARE WITH CONSTANT 
065022 001401 BEQ 6/s TBR IF OK 
065024 104027 EMT 7 
065026 000240 67$: NOP 
;RELEASE THE DRIVE FROM PORT A 
065030 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT POR 
065036 013737 001224 001240 MOV PORTA,PTNBR sMOVE P PORT ADORE’ TO poptl. _ TYPEOUT 
065044 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

065052 005037 001254 CLR RELERR SCLEAR THE "RELEASE ERROR * INDICATOR 
065056 012737 000012 001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
065 060037 001122 ADD RO, SBOADR ;ADD THE 1/0 BASE ADDRESS 
065070 012737 011700 001124 MOV #MOL'PGM'DPR'DRY'VV,$GDDAT ;COMPARISON CONSTANT 
065076 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A. 
065104 016037 000012 901170 MOV RMDS ( RO), STMP2 -:GET THE DRIVE STATUS REGISTER FROM PORT A. 
065112 042737 024001 001170 BIC #PIP!WRL ‘OM, $TMP2 CLEAR DONT CARES 
065120 013737 001170 001164 MOV STMP2, STMPO sCOPY IT INTO *STMPO' 
065126 042737 100100 001164 BIC HATA! VV, STMPO CL EAR gt Oy tetemeeed BITS FROM THE COPY 
065134 113760 001226 000010 MOVB PORTB,RMCS2(RO) : SELECT 
065142 016037 000012 001172 MOV RMD - 3 “GET THE PORIVE * STATUS REGISTER FROM FORT B. 
065150 042737 024001 001172 BIC #PIP!WRL ‘OM, $TMP CLEAR DONT CARES 
065156 013737 001172 001166 MOV STMP3,$TMP1 [COPY IT INTO *STMP 
065164 042737 100100 001166 BIC HATA! VV, STMP1 CL E PORT DEPENDENT BITS FROM THE COPY 
065172 023737 001164 001166 CMP STMPO,STMP1 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
065200 001006 BNE 68$ [BR IF NOT 
065202 005737 001164 TST STMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 

5206 001045 BNE 70$ <BR IF NOT 

5210 104046 EMT 46 
065212 000137 065376 JMP 72$ ;BYPASS THE REST OF THE CHECKS 
065216 013737 001170 001126 68$: MOV STMP2,$BDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
065224 013737 001226 001240 MOV PORTB,PTNBR i SEIZING. ont IF TEST SHOWS DRIVE NOT IN NEUTRAL 
065232 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT 
065240 005737 164 TST STMPO SEE IF So aTuS "EQ 0 FROM PORT A. 
065244 001414 BEQ 69$ 3BR IF ZERO 
065246 013737 001224 001240 MOV PORTA, 4h. oF :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
065254 013737 001172 001126 MOV $TMP3.SBDDA :"BAD DATA’ FOR ERROR TYPE OUT 
065262 113760 001224 000010 MOVB _—sC— PORTA, arse (RO) SSELECT PORT 
065270 005737 001166 TST STMP1 sSEE IF (Status EQ ZERO FROM PORT B. 
065274 001012 BNE 70$ ‘BR IF NO 
065276 012737 177777 001254 69$: MOV #~-1,RELERR SET ‘RELEASE ERROR’ INDICATOR 
065304 012760 000011 000000 MOV #11.RMCS1(RO) CLEAR DRIVE 
063316 oie 730 000013 000000 pt #13, *“RMCS1(RO) Te se THE DRIVE 
065322 013737 001170 001126 70$: MOV STMP2,$BDDAT ; LOOK FOR BIT FAILURES WHEN RMDS READ 
065330 013737 001224 001240 MOV PORTA,PTNBR + CHANGE PORT NUMBER 
065336 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
065344 001401 BEQ 71$ BR IF OK FROM PORT A. 
065346 104007 EMT 7 
065350 013737 001172 001126 71$: MOV STMP3,$BDDAT s CHECK RMDS FOR BIT FAILURES ~ FROM PORT B. 
065356 013737 001226 001240 MOV PORTB.PTNBR ‘CHANGE PORT R 
065364 023737 001124 001126 CMP SGDDAT.$BDDAT :SEE IF READ OK FROM PORT B. 
065372 001401 BEQ 72$ iBR IF OK 
065374 104007 EMT ? 


aon 
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T *B* SEIZE ACCESS TEST 


065376 000240 72$: 
065400 SCOPE ;LOOP ? 
1776 065402 000137 065630 JMP TST52 3G0 TO THE NEXT TEST 
sCHECK THE REGISTERS ON THE SELECTED PORT 
065406 TST51B: 
0654 005037 001250 CLR CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
065412 016037 000014 001126 MOV RMER1(RO), SBDDAT™ sGET CONTENTS OF RME 
065420 012737 000014 001122 MOV #RMER1 ,$BDAD R FORM REGISTER ADDRESS OF ERROR MESSAGE 
065426 060037 001122 ADD RO, SBDADR “FADD RH/RM BASE ADDRESS 
065432 005037 001124 CLR SGDDAT REGISTER SHOULD BE 
065436 023737 001124 001126 CMP SGDDAT ,SBDDAT 4% THE REGISTER OK ? 
065444 001403 BEQ 64$ BR IF OK 
065446 104006 EMT 6 
065450 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
065454 016037 000000 001126 64$: MOV RMCS1(RO), SBDDAT 3GET THE CONTENTS OF RMCS1 
065462 012737 000000 001122 MOV #RMCS1, $BDAD ADR FORM ADDRESS OF REGISTER 
065470 060037 001122 ADD RO, SBDADR s ADDRESS BASE 
065474 032737 020000 001126 BIT #MCPE , SBDDAT zI1S ‘MCPE’ SET ? 
065502 001404 BEQ 65$ ‘BR IF NOT 
065504 104011 EMT 11 
065506 012760 040000 000000 MOV MTRE,RMCS1(RO) ;CLEAR ‘MCPE’ 
065514 000240 65$: NOP 
065516 005037 001250 CLR CKE sCLEAR THE ‘CHECK ERROR’ INDICATOR 
065522 016037 000042 001126 MOV GMERD (RO), SBDDAT™ 3GET CONTENTS OF RM 
065530 012737 000042 001122 MOV #RMER2, SBDA DR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
065536 060037 001122 ADD RO. SBDADR are te RH/RM BASE ADDRESS 
065542 005037 001124 CLR SGDDAT REGISTER SHOULD BE 
065546 023737 001124 001126 CMP SGDDAT ,SBDDAT ate THE REGISTER OK ? 
065554 001403 BEQ 66$ BR IF OK 
065556 104006 EMT 6 
065560 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
5564 016037 000000 001126 66$: MOV RMCS1(RO), SBDDAT™ :GET THE CONTENTS OF RMCS1 
065572 012737 000000 001122 MOV #RMCS1, SBDADR FORM ADDRESS OF REGISTER 
065600 060037 001122 ADD RO,$BDADR sADDRESS BASE 
065604 032737 020000 001126 BIT #MCPE , SBDDAT 31S ‘*MCPE’ SET ? 
065612 001404 BEQ 67$ 3;BR IF NOT 
065614 104011 EMT 11 
065616 012760 040000 000009 MOV MTRE,RMCS1(RO) ;CLEAR ‘MCPE’ 
065624 000240 67$: NOP 
1777 065626 000207 RTS PC RETURN 
1778 RRR RRRERERER AAR AE REAR ERE EAR ERE RERR AREER AERA ARR ERE EE 
1779 *PUT NEWTEST HERE 
1780 RARER EERE EEE RARER EEE EERREREREREREEREEEEEEREE 


065630 000004 78152: SCOPE 


aon 
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SEQ 0167 


1 -SBTTL END OF PASS ROUTINE 


IT Itiii titties 

; RINCREMENT THE PASS NUMBER (S$PASS) 
:*INDICATE END-OF=PROGRAM AFTER 1 PASSES THRU THE PROGRAM te 
[TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY 
3 *WHERE XXXXX AND YYYYY ARE eee L NUMBERS 

;*IF THERES A MONITOR GO TO IT 

:*]F THERE ISN'T JUMP TO TSTIAA 


065632 SEOP: 
065632 005737 001300 TST KYBCTL ; ENTERED TEST VIA KEYBOARD COMMAND ? 
065636 001402 BEQ +6 F NOT 
065640 000137 003062 JMP EXEC SRETURN TO ee veows CONTROL 
065644 005037 0011(\2 CLR STSTNM 33 ZERO 4 — TEST 
065650 005037 001176 CLR STIMES 23 ZERO THE NUMBER OF ITERATIONS 
065654 005237 001100 INC S$PASS 33 INCREMENT THE PASS NUMBER 
065660 042737 100000 001100 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
065666 0053¢7 DEC (PC)+ + SLOOP? 
065670 000001 SEOPCT: .WORD 1 
065672 003066 BGT $DOAGN 377YES 
065674 012737 MOV (PC)+,a(PC)+ 7 zRESTORE COUNTER 
065676 000001 SENDCT: .WORD 1 
065700 065670 SEOPCT 
065702 104401 065710 TYPE ,65$ ag hang ASCIZ STRING 
065706 000407 ER 64$ sGET OVER THE ASCIZ 

3:65$: .ASCIZ <12><15>/END PASS #/ 
065726 64$: 
065726 013746 001100 MOV $PASS ,-(SP) 33 SAVE ass FOR TYPEOUT 

sTYPE PASS NUMBER 
065732 104405 TYPDS 3360 FYPESSDECIMAL agcts WITH SIGN 
065734 005737 001112 TST SERTTL :SEE IF ANY ERRORS THIS PASS 
065740 001431 BEQ $GT42P *:BR IF NO ERRORS TO REPORT 
065742 104401 065750 TYPE ,67$ 33 TYPE ASCIZ STRING 
065746 000421 BR 66$ :GET OVER THE Asclz 
066012 ji6rs: VASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
066012 013746 001112 MOV SERTTL,~(SP) sz SAVE SERTTL FOR rere 
TOTAL NUMBER OF ERRORS 

066016 104405 TYPDS ?360 TYPE=-DECIMAL ASCII WITH SIGN 
066020 005037 001112 CLR SERTTL ::CLEAR ERROR TOTAL 
066024 104401 001207 $GT42P: TYPE -SCRLF :: TYPE CARRIAGE RETURN, LINE FEED 
066030 013700 000042 $GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 
066034 001405 BEQ $DOAGN 3: 7BRANCH IF NO MONITO 
066036 000005 RESET ::CLEAR THE WORLD 
066040 004710 SENDAD: JSR PC, (RO) 3:G0 TO MONITOR 
066042 000240 NOP 37:SAVE ROOM 
066044 000240 NOP 33FO 
066046 000240 NOP 33ACT11 
066050 SDOAGN: 
066050 000137 JMP a(PC)+ RETURN 
066052 003346 $RTNAD: .WORD TST1AA 
066054 377 377 000 $ENULL: .BYTE -1,-1,0 sZzNULL CHARACTER STRING 


oOnN™N & 
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CLOCK SUBROUTINES 





-SBTTL CLOCK SUBROUTINES 


sROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
zIF CLOCK IS PRESENT, THE CLOCK WILL BE STARTED 


CKCLK: oe 


CKCLK1: AvD 


CKCLK2: ADD 
CKCLK3: we 


ROUTINE TO 
CLOCK: ADD 
B 


1$: TST 


2$: RTI 

;ROUTINE TO 

TOLER: SUB 
M 


ACKCLK1 ,A@#ERRVEC sSET A VECTOR FOR CLOCK CHECK 
a#ERRVEC +2 PSW 


ERRV 
@SLKCSR CHECK FOR KW11-P 
SLPVEC,R1 :kUTT-P VECTOR ADDRESS 
ACLOCK, (R1)+ Ag th 1-P VECTOR 
300, (R1 psu 


PRI 6 
[LOAD COUNTER BUFFER WITH 1°S 
7SET CLOCK = CNT UP, 16MS, CONT INT 


£ 
#=1,a$LKCSB 
#135 QSLKCSR 


aks ;RESTORE .* STACK POINTER 
PCKCLK2 ,AFERRVEC™ ;CHANGE ERROR VECTOR TO CHECK FOR KW11~-L 
aSLkS LOOK FOR K Kwite 
SLLVEC,R1 RWI TEL VECTOR ADDRESS 
ACLOCK, (R1)+ SET of anit VECTOR 


#300, (R1) 3PSW 1 6 
#100, eon 3SET KWI I=L INTERRUPT 


#4,SP RESTORE THE STACK POINTER 
#2, (SP) Z INCREMENT RETURN, NO CLOCK 
+ gaan. RESTORE THE ERROR VECTOR 


COUNT CLOCK TICKS 


#17. , TIME ADD 17 MS TO ae og TIME COUNTER 
ANCH IF NO OVERFLOW 
#~1, TIME SOVERFLOW = RESTORE —— COUNT 
31S WAT ares —— ZERO 
#17. WATCH SUBTRACT y A... FROM WATCH DOG COUNTER 
WATCH CLEAR WATCH DOG COUNTER 
;RETURN 


CALCULATE + AND = 25% TIME TOLERANCE VALUES 


;SETUP STACK 


#4,SP oe 
4(SP), (SP) 3SAVE_STACK 
@(R5)+,~(SP) 3GET TIME VALUE 
(SP) ,4(SP) MOVE TIME VALUE 
(SP) .6(SP) sMOVE VALUE AGAI 
(SP) : DE BY 2 
(SP) DIVIDE BY 2 AGAIN (FOR A TOTAL OF 4) 
(SP) ,4(SP) ‘CALCULATE UPPER LIMIT FOR TIMEOUT 
(SP)+,4(SP) : CALCULATE LOWER LIMIT FOR TIMEOUT 
5 RETURN WITH TOLERANCES ON THE STACK 





SEQ ous | 


| 
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SCOPE LER ROUTINE 


1 


066410 


mm = 
MLO 


000416 


Ss3 

—— 

on 
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RLSSS es 
NoNeSN 
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066650 
040000 


066632 
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177060 
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000004 


001103 
177777 
0000 

e644 
177766 


177777 
066450 


000004 
177777 
000001 


001000 


000000 
001140 


112610 


000004 


067220 
000004 
067220 
067220 


067220 
067220 
177766 


001140 
112406 


-SBTTL SCOPE HANDLER ROUTINE 


pace ene rer yy erty ap a rp meee yee geen agg «ya nae nnn 
THIS novi CONTROLS THE LOOPING OF ee Ht IT WILL INCREMENT 

3*AND LOAD THE TEST NURBER(STSID INTO THE DISPLAY REG. (DISPLAY<7:0>) 
7*AND LOAD THE ERROR F (SERFLG) INTO DISPLAY<15:08> 

*THE (SuitcH sath ¢ ~~ PROVIDED BY THIS ROUTINE ARE: 


7*SW14 OP ON TEST 

3*SW11=1 INHIBIT ITERATIONS 

7 *CALL 

3* SCOPE 7; SCOPE=I0T 

SSCOPE: 
CKSWR zzTEST FOR CHANGE IN SOFT-SWR 
JSR PC,STOP 

1$: ait #B1T14,aSWR 331008 08 ON PRESENT TEST? 
JMP SOVER 7: JUMP OVER SCOPE ROUTINE 


ZAMARSTART OF CODE FOR THE XOR TESTERM#MH# 
$XTST 68 ::1F RUNNING ON THE ror TESTER CHANGE 
i3THIS INSTRUCTI =24 


MOV #5$ ,AHERRVEC 23SET F 
TST af1/7 7T ou 
MOV (SP) + ,@#ERRVEC ; RESTORE THE ERROR VECTOR 
BR $SVLAD 33G0_ TO THE NEXT TEST 
5$: CMP (SP)+, (SP)+ SICLEAR THE STACK AFTER A TIME OUT 
OR VECTOR 


MOV (SP) +, a#ERRVEC Hey THE ERR 
BR SOVER PR ON oe PRESENT TEST 
6$: ;4AAHAEND OF aos FOR THE XOR *FESTERMAA 
eg TB SERFLG 33 HAS AN ERROR OCCURRED? 


35 ‘BR I 

CMP #-1, CPSAVE 3ISEE I TIMEOUT WAS PREVIOUSLY RECORDED 
BEQ 0058 K AR ROUTINE IF $ 
MOV ERRVEC,=(SP) 3 ISAVE CONTENTS OF ERROR VECTOR 
MOV rate ERRVEC UP *TRAP’ RETURN ADDRESS 
MOV sore: “CPSAVE ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

2000$: MOV CPSAVE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
MO #20018. (SP) +:SETUP RETURN ADDRESS 


2001$: MOV (SP) +, ERRVEC z:RESTORE CONTENTS OF ERROR VECTOR 
2002$: ~ #~1, CPSAVE 


EQ 33 
BIT WBITOO,CPSAVE ::SEE IF THE POWER MONITOR BIT IS ON 
BEQ BRANCH TO CONTINUE ROUTINE IF CLEAR 
BIC #B1T00,177766  ::CLEAR THE BIT FOUND TO 
MOV SWR,-(SP) T:SAVE SWR ADDRESS 
MOV sete): =(SP) +: SAVE SURV LUE 
MOV #176, SWR t:GET SOFT WARE SWR ADDRESS 
MOV (SP) -aSwR 33GET CURRENT SWR VALUE 
BIC #81709, aSWR 'T ALLOW ERROR ON THIS ERROR 


T AL LOOP ON 
EMT 17 3 CALL SPECIAL POWER FAIL ot CALL 


MOV (SP)+,a(SP) RESTORE SWR TO ORIGINAL V 
MOV (SP)+,SWR : RESTORE SWR ADDRESS 





ON T 0) 
MOV @#ERRVEC,: (SP) ;3;SAVE THE CONTENTS OF THE ERROR VECTOR 
OR yg 


23SEE re ey HAS CPU ERR REG TIMEOUT INDICATION 


SEQ 0169 


Pee Se 


=o 


ss 
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SCOPE HANDLER ROUTINE 


066544 2003$: 
066544 105037 001103 4$: CLRB SERFLG +3 ZERO THE ERROR FLAG 
066550 005037 001176 CLR STIMES sCLEAR THE NUMBER '¢ ITERATIONS TO MAKE 
066554 032777 004000 112356 3S: BIT #B1T11,aSWR ;EINAIBIT ITERATIONS 
066562 001011 BNE YES 
066564 005737 001100 TST $PASS U1 FIRST PASS OF PROGRAM 
066570 007508 BEQ 1$ INHIBIT ITERATIONS 
066572 0052357 001104 INC SICNT ; EINCREMENT ae COUNT 
066576 023737 001176 001104 CMP STIMES ,SICNT 23CH ECK THE NUMBER OF ITERATIONS MADE 
066604 00201 BGE SOVER 3BR IF MORE I ITERATION REQUIRED 
066606 012737 000001 001104 1$: MOV #1,$1CNT {EREINITIALIZE THE ITERATION COUNTER 
066614 013737 066646 001176 MOV SMXCNT ,STIMES 3SET N NUMBER OF IT ERATIONS TO DO 
066622 105237 001102 S$SVLAD: INCB STSTNM sCOUNT TEST NUMBERS 
066626 011637 001106 MOV (SP)s $LPADR SISAVE SCOPE LOOP ADDRESS 
066632 013777 001102 112302 SOVER: MOV STSTAM, 7 wat 33DISPLAY TEST NUMBER 
066640 013716 001106 MOV SLPADR, (SP) 33FUDGE RETURN ADDRESS 
066644 000002 RTI zeFIXES PS 
2 066646 000005 SMXCNT: 5. 33MAX. NUMBER OF ITERATIONS 
? ;DROP PRIORITY TO ALLOW CONSOLE INTERRUPT 
5 066650 STOP: 
066650 012746 000140 MOV #PR3,-(SP) 33PUT NEW PS ON STACK 
066654 012746 066662 MOV #64$,-(SP) 33PUT NEW PC ON STACK 
066660 000002 RTI 33;POP NEW PC AND PS 
6 066662 64$: 
zRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 
9 066662 012746 000240 MOV #PRS ,~(SP) aot NEW PS ON STACK 
066666 012746 066674 MOV #65$,-(SP) es PUT NEW PC ON STACK 
066672 000002 RTI 33POP NEW PC AND PS 
066674 65$: 
10 060674 000207 RTS PC ;RETURN 
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ERROR HANDLER ROUTINE 


1 


067146 


105037 


012637 
022737 


000402 
105037 
032777 


001004 
004737 


067222 


001102 
001103 


067222 
177777 
000004 
067046 
177766 


177777 
067062 


000004 
177777 
000001 
000001 
000177 
067222 
020000 
067224 


067220 
000004 
067220 
067220 


067220 
067220 
177766 


067222 
001114 


111774 


-SBTTL ERROR HANDLER ROUTINE 


[RRARARERARRRRAARE RATER AE RERRAE REE RAR RRR ERA RARER ERE ee 
THIS ROUTINE WILL_INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
I Maes NUMBER AND THE ADDRESS OF THE ERROR CALL 


: *SAVE THE ERROR 
D GO TO SERRTYP ON ERROR 
{THE SWITCH wd, PROVIDED BY THIS ROUTINE ARE: 


SERROR: 
C 


7$: 


1$: 


1000$: 


1001$: 
1002$: 


SEQ 0171 


ERROR 
INHIBIT atte TYPEOUTS 


BELL ON ERR 
N 7;ERROR=EMT AND N=ERROR ITEM NUMBER 
IBSAVE 33CLEAR_THE ITEM BYTE SAVE LOCATION 


STSTNM, TSTNUM 
SERFLG 


STSTNM,@DISPLAY 
#B1T10,aSWR 


$ERT 
(SP). -SERRPC 
SSERRPC. SITEMB 
#e1 T09, aSWR 
#177, $1TEMB 
1004$ 

IBSAVE 


1003$ 
#1, CPSAVE 
és 


10 
#-1,CPSA 
#1001$, (SP) 
(SP) +, ERRVEC 
#1, CPSAVE 
#81T00,CPSAVE 
1004$ 
#B1T00,177766 


$ITEMB, IBSAVE 
W77 SITEMB 


04$ 
IBSAVE 
#81113, aSWR 
PC, SERRTYP 


3zTEST FOR CHANGE IN SOFT=SWR 
4 + Ue THE ERROR FLAG 
ON'T LET THE FLAG GO TO ZERO 


‘DISPLAY TEST NUMBER AND ERROR FLAG 
: BELL =F ame 


3 FRING BELL 
T THE NUMBER OF ERRORS 
7:GET ADDRESS OF ERROR INSTRUCTION 
zzSTRIP AND SAVE THE ERROR ITEM CODE 
23SEE IF LOOP ON ERROR IS SET 
CH AROUND ROUTINE IF SO 
33 SEE IF THIS wn iy POWER FAIL CALL 
3BRANCH AROUND ROUTINE IF IT I 
33 SEE i at Pe THE 2ND ERROR CALL IN THIS ROUTINE 
i3SEE IF ie HAS CPU ERR REG TIMEOUT INDICATION 
13 SAVE ite "7 re et 
‘ROVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


77SET CPU ERROR REGISTER TIMEOUT INDICATOR 
3;SETUP RETURN ADDRESS 


;;RESTORE CONTENTS OF ERROR VECTOR 
a: i wy HAS CPU ERR REG TIMEOUT INDICATION 
i SEE i oP be MONITOR BIT IS SET IN CPU ERR REG 
33 CLEAR THE BIT FOUND aT 

;MAKE_IBSAVE NON-ZERO FOR DUAL ERROR CALL 
T:SET SITEMB TO SPECIAL POWER FAIL POINTER 
;;BRANCH OVER IBSAVE CLEARING 
3;CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
3zSKIP TYPEOUT IF SET 


7:SKIP TYPEOUTS 
3:G0 TO USER ERROR ROUTINE 





















D 14 
CZRNHAO RMBO DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 13-1 SEQ 0172 
ERROR HANDLER ROUTINE 


O67 3¢ 104401 001207 208 TYPE »SCRLF 

067156 105737 367222 2$: TSTB IBSAVE 33SEE IF IBSAVE IS LOADED 

067162 001005 BNE 3$ ;;BRANCH IF NOT = NO HALT ON PWR MON BIT ERROR 

067164 005777 111750 TST aSWR :zHALT ON ERROR | 
067170 100002 BPL 3$ 33SKIP IF CONTINUE 
067172 000000 HALT 33HALT ON ERR 

Corte 104407 33 CKSWR 7iTEST FOR CHANGE IN SOF T-SWR 

067176 022737 066040 000042 cMP ASENDAD ,a#42 33ACT=11 AUTO“ACCEPT? 

067204 001001 BNE 6$ 3 BRANCH IF NO 

687508 000000 és HALT 73 YES 

067210 105737 067222 TSTB IBSAVE 4h IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 

067214 001236 BNE 7$ + 3BR ANCH BACK TO CALL ORIGINAL ERROR 

067216 000002 RTI URN 

067220 000000 CPSAVE: .WORD 0 LOCATION TO SAVE CPU ERROR REG CONTENTS 

067222 000000 IBSAVE: .WORD 0 3;LOCATION TO SAVE ITEM BYTE 
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ERROR MESSAGE TYPEOUT ROUTINE 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


Hee LLL ELL LLL LL lllaldaladababaladetalale 

TATHIS ROUTINE USES THE ““ITEM CONTROL BYTE’’ (SITEMB) TO BA ey Bags bs 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


} 
| 
067224 SERRTYP: | 
067224 104401 001207 TYPE  ,$CRLF s"'CARRIAGE RETURN’ & "LINE FEED"’ | 
067230 010046 MOV RO, -(SP) +S SAV | 
067232 005000 CLR RO ::PICKUP THE ITEM INDEX 
067234 153700 001114 BISB  a#$SITEMB,RO 
067240 001004 BNE 1$ sz1F ITEM NUMBER IS ZERO, aust 
sz; TYPE THE PC OF THE ERRO 
067242 013746 001116 MOV SERRPC,-(SP)  ::SAVE SERRPC FOR THPEOUT 
;3ERROR ADDRESS 
067246 104402 TYPOC 7:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
067250 000456 BR 10$ t:GET OU 
067252 122700 000177 1$: CMPB  —s-#177,,RO :iSEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
067256 001006 BNE 1000 CH IF 
067260 113737 001102 067562 MOVB $TSTNM,PFTSTN ::GET TEST NUMBER 
067266 012700 067422 MOV #PFECH.RO 3 IMOVE POWER FAIL ERROR CALL TABLE TO RO 
067272 000406 BR 1001$ = SBRANCH TO CALL ERR 
067274 005300 1000$: DEC RO ; ADJUST THE INDEX SO THAT IT WILL 
067276 006300 ASL RO 3: WORK FOR THE ERROR TABLE 
067300 006300 ASL RO 
067302 006300 ASL RO 
067304 062700 001310 ADD #$ERRTB,RO £3 FORM TABLE POINTER 
067310 012037 067320 1001$: MOV (RO) +, 2$ ::PICKUP ‘ERROR MESSAGE’ POINTER 
067314 001404 BEQ 3$ He tL TYPEOUT IF NO POINTER 
067316 104401 TYPE TYPE THE “ERROR MESSAGE" 
067320 000000 2$: .WORD 0 :]TERRON MESSAGE' POINTER GOES. HERE 
067322 104401 001207 TYPE ,S$CRLF ZE''CARRIAGE RETURN’ & "LINE FEED" 
067326 012037 067336 3$: MOV (RO)+,4$ *PICKUP "DATA HEADER’’ POINTER 
067332 001404 BEQ 5$ £3 SKIP TYPEOUT IF 0 
067334 104401 TYPE ZTYPE THE “DATA HEADER" 
067336 000000 4$: ,WORD 0 ;33DATA HEADER" POINTER GOES HERE 
067340 104401 001207 TYPE  ,$CRLF +:"'CARRIAGE RETURN’ & LINE FEED" © 
067344 010146 5$: MOV R1,-(SP) t:SAVE R1 
067346 012001 MOV (RO)+,R1 :ZPICKUP "DATA TABLE’ POINTER 
067350 001415 BEQ 9$ ;:BR IF NO DATA TO BE, TYPED 
067352 012000 MOV (RO)+,RO 3:PICKUP "DATA FORMAT’: POINTER 
067354 105720 6$: TSTB = (RO) + :3 OCTAL™ OR 'DECIMAL" 
067356 001003 BNE 7$ 33BR IF DECIMAL 
067360 013146 MOV a(R1)+,-(SP) ::SAVE a(R1)+ FOR T 
067362 104402 TYPOC +:G0 TYPE--OCTAL ASCTL GALL DIGITS) 
7364 000402 a$ 
067366 7$: 
067366 013146 MoV a(R1)+,-(SP)  :;SAVE a(R1)+ FOR TYPEOU 
067370 104405 TYPDS 3360 TYPE~-DECIMAL ASCII "ITH SIGN 
067372 005711 8$: TST (R1) IIS THERE ANOTHER NUMBER? 
067374 001403 BEQ 9$ [:BR IF 
067376 104401 067416 TYPE ,11$ + TYPE 1wo(2) SPACES 
067402 000764 BR é$ + LOOP 
7404 012601 9$: MOV (SP)+,R1 s:RESTORE R1 
067406 012600 10$: MOV (SP)+.RO t:RESTORE RO 
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ERROR MESSAGE TYPEOUT ROUTINE 


067410 104401 001207 TYPE SCRLF "CARRIAGE RETURN’ & "LINE FEED" 
067414 000207 RTS PC +: N 

067416 040 040 000 118: -ASCIZ i +:TWO(2) SPACES 

067422 067432 067514 067546 PFECH: PFECH1, PEECH2, PFECH3,PFECH4 ;;WORDS DEFINING TABLES BELOW 
067432 120 117 127 PFECHI: . ASCIZ— R MONIT OR BIT IN CPU ERROR REGISTER FOUND SET? 
067514 124 105 123 PFECH2: .ASCIZ STESTNO ERR PC CPUERREG? 


“EVEN 
067546 067562 001116 067220 PFECH3: .WORD PFTSTN,SERRPC,CPSAVE,0 
067556 000 000 000 PFECH4: .BYTE 0,0,0,0 
067562 000000 PFTSTN: .WORD 0 s:CONTAINS TEST NUMBER FOR PF BIT ERROR 
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TYPE R 


1097. 


001350 
013746 
105366 


000770 


112716 
7 


000724 


001157 


000002 


000002 
000011 
000200 


070052 


067734 
001156 


001154 
000001 


067734 
070052 


000040 
067734 
000007 070052 


-SBTTL TYPE ROUTINE 


ieee eee an TUDE AAEET MESSAGE MESSAGE FRAT TERMINATE UE AO 


: #ROUT INE TO TYPE ASCIZ MESSAGE. og MUST TERMINATE WITH 
3 *THE ROUTINE WILL INSERT A NUMBER 

*NOTE1: $SNULL CONTAINS THE en or 
SFILLS CONTAINS THE NUMBER 0 


; *NOTE?: 
3 #NOTES: 


SCALL: 
ist) USING GA TRAP INSTRUCTION 


ee 


5$: JSR 
6$: CMPB 


7$: DECB 


HORIZONTAL TAB 


8$: MOVB 


YPE 
ts MESADR 


F NULL ey ae AFTER a 
O BE USED 


SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


-MESAD 


STPFLG 
1$ 


3$ 

RO,=(SP) 
a2(SP),RO 
(RO)+,=(SP) 
4$ 


(SP)+ 
(SP)+,RO 
#2, (SP) 
#HT, (SP) 
CRLF , (SP) 
(SP)+ 


— 


PC, STYPEC 
SFILLC, (SP)+ 


2$ 
$NULL.-(SP) 
1(SP) 

6$ 

PC, $TYPEC 
SCHARCNT 
7$ 
PROCESSOR 
#" ,(SP) 
PC, $TYPEC 
#7. $CHARCNT 
9$ 

(SP)+ 

2$ 


if 


8 
LINE FEED. 
AS THE FILLER CHARACTER. 
FILLER CHARACTERS REQUIRED. 


SEQ 0175 


7iMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


s31S THERE A TERMINAL? 


33BR IF YES 
:TLEAVE™ IF NO TERMINAL 


sSAVE RO 
:iGEr ADDRESS OF ASCIZ STRING 
CHARACTER 


TO BE TYPED ONTO STACK 


a C 
R IF IT ISN*T THE TERMINATOR 
STF TERMINATOR POP IT OFF THE STACK 
zzRESTORE RO 
Peg RETURN PC 


'N 
+ BRANCH IF <HT> 
::BRANCH IF NOT <CRLF> 


Saas <CR><LF> EQUIV 
3: TYPE A CR AND LF 


3;CLEAR CHARACTER COUNT 
33GET_NEXT CHARACTER 
200 TYPE THIS CHARACTER 


771F_NO GO GET NE 
33GET ° OF FILLER CHARS. NEEDED 


THE NULL CHAR. 
DOES A NULL NEED TO BE TYPED? 
73BR IF_N eer 
1280 TYPE A NULL 
200 wad COUNT AS A COUNT 


ee 
ee 


3:REPLACE TAB WITH SPACE 
3 ONAN A SPACE 
poy ey NOT AT 


PoP SPACE OFF STACK 
3:GET NEXT CHARACTER 





POP THE NULL OFF OF STACK 


— 
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TYPE ROUTINE 





STYPEC: 
105777 111204 TSTB = @STKS ::CHAR IN KYBD BUFFER? 
067740 100022 BPL +:BR IF NOT 
067742 017746 111200 MOV a$TkB,-(SP) +:GET CHAR 
067746 042716 177600 BIC #177600,(SP) | ::STRIP EXTRANEOUS BITS 
067752 122716 000023 CMPB ss MS XOFF,, (SP) ::WAS CHAR XOFF 
067756 001012 BNE 102$ 3 NOT 
067760 101$: 
067760 105777 111160 TSTB = @STKS z:WAIT FOR CHAR 
7764 100375 BPL 101$ 
067766 117716 111154 MOVB = a$TKB, (SP) 3:GET CHAR 
067772 042716 177600 BIC #177600,(SP)  ::STRIP IT 
067776 122716 000021 CMPB ss #SXON, (SP) t:WAS IT XON? 
070002 001366 BNE 101$ ::BR IF NOT 
070006 - 102$: 
070004 005726 ai TST (SP)+ rsFIX STACK 
Wits 105777 111136 TSTB = aS TPS y;WAIT UNTIL PRINTER IS READY 
070012 100375 BPL 10$ 
070014 116677 000002 111130 MOVB  2(SP),a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
070022 122766 000015 000002 CMPB —s- CR, 2 SP) *:IS CHARACTER A CARRIAGE RETURN? 
070030 001003 BNE 1$ BRANCH IF 
070032 105037 070052 CLRB § $CHARCNT T:YES==CLFAR CHARACTER COUNT 
070036 000406 BR STYPEX SI EXIT 
070040 122766 000012 000002 1$: CMPB ss HLF, 2(SP) t:IS CHARACTER A LINE FEED? 
070046 001402 BEQ $TYPEX BRANCH IF YES 
070050 105227 INCB (PC)+ ::COUNT THE CHARACTER 
670052 000000 SCHARCNT:.WORD 0 s: CHARACTER COUNT STORAGE 


070054 000207 $TYPEX: RTS PC 


' 
Ci ce cee 
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BINARY TO OCTAL (ASCII) AND TYPE 


070220 


000000 


000002 
000001 


000006 
000005 


070303 
000006 


000012 


070302 
177770 


070301 


070301 
070303 
070300 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


[REAR RRERRRAAARERATAAAATELTAAAAAAAA KAKA eee AKA KeAeeAA eee eeee 

TRTHIS ROUTINE IS USED TO CHANGE ° 16-BIT BINARY NUMBER TO A 6-DIGIT 
S*OCTAL (ASCII) NUMBER AND TYPE IT. 

:*$TYPOS=-=ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3*CALL: 


MOV NUM, =(SP) ;;NUMBER TO BE TYPED 

TYPOS 3:CALL_FOR TYPEOUT 

-BYTE N 73N=1 TO 6 FOR NUMBER OF DIGITS TO TYE 
BYTE M 33M=1 0 


31=TYPE LEADING ZEROS 
: }O=SUPPRESS LEADING ZEROS 


‘ #STYPON=--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i #$T¥POS OR $TYPOC 


Porererer a a’ 


i MoV ——- NUM, =(SP) ;;NUMBER TO BE TYPED 
i TYPON :CALL FOR TYPEOUT 
{$TYPOC-~-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
i MOV ——- NUM, =(SP) ;;NUMBER TO BE TYPED 
3* TYPOC 3:CALL FOR TYPEOUT 
S$TYPOS: MOV  a(SP),=(SP)  ; ;PICKUP_THE MODE 
MOVB 1(SP),S$OFILL | ;;LOAD ZERO FILL SWITCH 
MOVB  (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
ADD —-#2, (SP) ;:ADJUST RETURN ADDRESS 
BR STYPON 
S$TYPOC: MOVE #1, S$OFILL 33SET THE ZERO FILL SWITCH 
MOVB  #6,SOMODE+1 § 3;SET FOR SIX(6) DIGITS 
STYPON: MOVB #5 ,SOCNT 3:SET_THE ITERATION COUNT 
MOV —-R3,=( SP) Z:SAVE R3 
MOV —-R&, = (SP) Z:SAVE R4 
MOV —-R5,=(SP) 3:SAVE_R5 
MOVE SOMODE+1, R43 GET THE NUMBER OF DIGITS TO TYPE 
ADD —-#6.,R4 ;:SUBTRACT. IT FOR MAX. ALLOWED 
MOVB 4, SOMODE :3SAVE IT FOR U 
MOVB $OFILL,R4 GET THE ZERO FILL SuITCH 
MoV —-'12(SP) .R5 S3PICKUP HE INPUT NUMBER 
CLR = RS S3CLEAR THE OUTPUT, WORD 
1$: ROL RS SROTATE MSB INTO "'C 
BR 3$ :260 DO MSB 
28: ROL RS 3:FORM THIS DIGIT 
ROL =—-RS 
ROL = RS 
MOV —-RS.R3 
3$: ROL 3 ;GET LSB OF THIS DIGIT 
DECB © SOMODE zETYPE THIS DIGIT? 
BPL iBR_IF N 
BIC ——-#177770,R3 SIGET RID °OF JUNK 
BNE  4$ i TEST FOR 
TST sR ;3SUPPRESS THIS 0? 
BEQ (S$ :BR IF YE 
4$: INC ~— RG ::DON'T SUPPRESS ANYMORE 0°S 





SEQ 0177 | 


a0 


SEQ 0178 
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BINARY TO OCTAL (ASCII) AND T 


070222 052703 000060 BIS #°0,R3 MAKE THIS DIGIT ASCII 
070 26 052703 000040 5$: BIS #° (RB tZMAKE ASCII IF NOT ALREADY 
970 110337 070276 MOVB = R3, BS Z3SAVE FOR TYPIN 
0256 104401 070276 TYPE TYPE THIS DIGIT 
$8 4 105357 070300 7$: DECB =: $OCCNT +:COUNT BY 1 
070246 003347 BGT 2$ 336R IF MORE TO DO 
070250 002402 BLT 6$ ‘BR IF DON 
070252 005204 INC R4 tTINSURE LAST DIGIT ISN" T A BLANK 
070254 000744 BR 2$ +:G0 DO THE LAST DIGIT 
070256 012605 6$: MOV (SP)+,R5 t:RESTORE RS 
07026C 012604 MOV (SP)+,R4 ; SRESTORE R4 
070262 012603 MOV (SP) +.R3 S:RESTORE R3 
070264 016666 000002 000004 MOV 2(SP) .4(SP) +:SET THE STACK FOR RETURNING 
070272 012616 MOV (SP)+, (SP) 
070274 000002 RTI 
070276 000 8$ .BYTE 0 £7 STORAGE FOR. ASCII DIGIT 
070277 000 YTE 0 +: TERMINATOR F IYPE ROUTINE 
00 000 “BYTE 0 T:OCTAL DIGIT C 
070301 000 SOFILL: :BYTE 0 t:ZERO FILL SWITCH 
070302 000000 SOMODE: :WORD 0 ::NUMBER OF DIGITS TO TYPE 


ao 
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CONVERT BINARY TO DECIMAL AND TYPE 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ee a ens ae eat Gees Saumek EX OE 
TRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER A 5-DIGIT 
3 *SIGNED DECIMAL (ASCII) NUMBER AND TYPE if DEPENDING oN O WHE THER THE 
® UMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
+ eUEF ORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
a WITH SPACES. 


* MOV NUM, -(SP) s:PUT THE BINARY NUMBER ON THE STACK 
* TYPDS +:G0 TO THE ROUTINE 
070304 $TYPDS: 
070304 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
70306 010146 MOV R1,-(SP) PUSH R1 ON STACK 
070310 010246 MOV R2,-(SP) +:PUSH R2 ON STACK 
070312 010346 MOV R3,=(SP) + :PUSH R3 ON STACK 
070314 010546 MOV R5,=(SP) +:PUSH R5 ON STACK 
070316 012746 020200 MOV #20200,-(SP) § ::SET BLANK SWITCH AND SIGN 
070322 016605 000020 MOV 20(SP).R5 ::GET THE INPUT NUMBER 
070326 100004 BPL 1$ [:BR IF INPUT I . 
070330 005405 NEG R5 S:MAKE THE BINARY NUMBER POS. 
070332 112766 000055 000001 MOVB 3s #*=, 1 (SP) T:MAKE THE ASCII NUMBER NEG. 
70340 005000 1$: CLR R ::ZERO THE CONSTANTS INDEX 
070342 012703 070520 MOV #SDBLK R3 i 3 SETUP THE OUTPUT POINTER 
70346 112723 000040 MOVB (R3)+ Z:SET THE FIRST CHARACTER TO A BLANK 
070352 005002 2$: CLR +: CLEAR THE BCD NUMBER 
070354 016001 070510 MOV a enn ie SGET THE CONSTANT 
70360 160105 3$ SUB R1,R5 ; FORM THIS BCD DIGIT 
070362 002402 BLT 4$ [BR IF DONE 
70364 005202 INC R2 TINCREASE THE BCD DIGIT BY 1 
070366 000774 BR 3$ 
070370 060105 4$: ADD R1.R5 s:ADD BACK THE CONSTANT 
070372 005702 TST R2 7:CHECK IF BCD DIGIT=0 
070374 001002 BNE 5$ *:FALL THROUGH IF 0 
070376 105716 TSTB = (SP?) Z:STILL DOING LEADING 0'S? 
70400 100407 BMI 7$ ::BR IF YES 
070402 106316 58: ASLB = (SP?) 3 3MSD? 
70404 103003 BCC 6$ “BR IF NO 
070406 116663 000001 177777 MOVB _—«1(SP) ,=1(R3) i EVES--SET THE SIGN 
070414 052702 000060 6$: BIS #'0,R2 MAKE THE BoD DIGIT ASCII 
070420 052702 000040 7$: BIS *R2 ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
070424 110223 MOVB _—R2, (R3)+ PUT THIS CHARACTER IN THE OUTPUT BUFFER 
070426 005720 TST (RO) + ?:JUST INCREMENT ING 
070430 020027 000010 CMP RO,#10 *: CHECK THE TABLE INDEX 
070434 002746 BLT 2$ 3360 DO THE NEXT DIGIT 
070436 003002 BGT 8$ 760 TO EXIT 
070440 010502 MOV R5,R2 IGET THE LSD 
070442 000764 BR 6$ ?GO CHANGE TO ASCII 
070444 105726 8$: TSTB =. (SP) + 3 WAS THE LSD THE FIRST NON-ZERO? 
070446 100003 BPL 9$ *BR IF N 
070450 116663 177777 177776 MOVB  =1(SP),-2(R3) tTYES=--SET THE SIGN FOR TYPING 
070456 105013 9$: CLRB = (R3) ::SET THE TERMINATOR 
070460 012605 MOV (SP)+,R5 +:POP STACK INTO R5 
070462 01 MOV (SP)+-R3 ::POP STACK INTO R3 
070464 012602 MOV (SP) +-R2 *:POP STACK INTO R2 
070466 012601 MOV (SP)+-R1 *:POP STACK INTO R1 








L 14 
T1 MACRO V04.00 tals 07:09:22 PAGE 17-1 





(SP) +, (SP) 
3;RETURN TO USER 


CZRNHAO RM8O DUAL PORT P 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
070470 012600 MOV (SP)+,RO ::POP STACK INTO RO 
7 401 070520 TYPE $DBLK *:NOW TYPE THE E 
04 090002 000004 ov 3(SP) ,4(SP) ‘ADJUST THE STACK 


SEQ 0180 


an 


M14 
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TTY INPUT ROUTINE | 


-SBTTL TTY INPUT ROUTINE 


Py RERREEREREREEEEERERREEREREEAAEARAERERERERERERERRERRAEREREREKEE EK 


»-ENABL LSB 
070530 000000 STKCNT: .WORD 0 7 ;NUMBER OF ITEMS IN QUEUE 
070532 000000 $TKQIN: .WORD 0 3; INPUT POINTER 
070534 000000 $TKQOUT: .WORD 0 3;OUTPUT POINTER 
070536 $TKQSRT: .BLKB 1 zzTTY KEYBOARD QUEUE 
070537 oo 


sore INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
j #SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


BNE 
070704 104401 001202 TYPE -$BELL 3 RING THE. TTY BELL 





| 
teCALL: 
* JSR PC, $TKINT 
* RETURN 

070540 005037 070530 $TKINT: CLR $TKCNT :CLEAR COUNT OF ITEMS IN QUEUE 

070544 012737 070536 070532 MOV PSTKOSRT, STKQIN 3 MOVE THE STARTING ADDRESS OF THE 

07055 013737 070532 070534 MOV STKQIN N,$TKQOUT ZQUEUE INTO THE INPUT & OUTPUT POINTERS. 

070560 012737 070610 000060 MOV #STKSRV, @ATKVEC :EINITIALIZE THE KEYBOARD VECTOR 

070566 012737 000200 000062 MOV #200, aMTKVEC+2 ::' BR’ LEVEL 4 

070574 005777 110346 TST a$TKB 33CLEAR DONE FLAG 

070600 012777 000100 110336 MOV #100, a$TKS TENABLE TTY KEYBOARD INTERRUPT 

70606 000207 RTS PC * sRETURN TO CALLER 
:*TK SERVICE ROUTINE 
[*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
isBY gl cate FROM THE INPUT BUFFER AND PUTTING 
Z * 
:*IF THE CHARACTER IS A ‘'CONTROL-C'' (*C) STKINT IS CALLED AND 
**UPON RETURN EXIT IS MADE TO THE “‘CONTROL-C'’ RESTART ADDRESS (START) 

070610 117746 110332 $TKSRV: MOVB  a$TKB, -(SP) i sPICKUP. THE CHARACTER 

070614 042716 177600 BIC #°C177, (SP) *:STRIP THE JUNK 

070620 021627 000021 CMP {SP) ASXON 331$ 1T A RANDOM XON? 

070624 001002 BNE 30$ BRANCH IF NO 

070626 005726 TST (SP) + *CLEAN RANDOM XON OFF STACK 

070630 00.002 RTI 1 RETURN 

070632 30S: 

070632 021627 000003 CMP (SP) ,#3 zi1S IT A CONTROL C? 

070636 001007 BNE 1$ BRANCH IF N 

070640 104401 071736 TYPE  ,$CNTLC ‘TYPE A CONTROL-C (*C) 

070644 004737 070540 JSR PC, $TKINT INIT THE KEYBOARD 

070650 005726 TST (SP) d+ *:CLEAN UP STACK 

070652 000137 002240 JMP 33 CONTROL C RESTART 

070656 021627 000007 1$: CMP oop) a? 331S IT A CONTRO. G? 

070662 001004 BNE [BRANCH IF NO 

070664 022737 000176 001140 CMP ASWREG, SWR t:1S SOF T-SWR SELECTED? 

070672 001500 BEO 6$ *:G0 TO SWR CHANGE 

070674 2$: 

070674 022737 000001 070530 CMP #1, $TKCNT z31S THE QUEUE FULL? 

070702 001004 $ | 
! 
| 
| 
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TTY INPUT ROUTI 


Ororle boeest 


0707 061031 
o70re0 5077 
57 


S 
oOo 
“ 
SESH 
233888 
w 
~ 
en“ 
AUino 


oooo 
AAS 
ssss 
Quins 
MLNO 
S=S8Ne 
m—nr 
So an 
Non 


SSVSRUSN 


S 

S 

~ 
RSNSxS 


7 
677 


oO 
~N 
= 
o 
= 
oO 
— 
_ 


erro’ 022737 


16 
071066 021627 
071072 001300 


123727 


sae ot ot I IO 


000023 
110216 
110210 
110204 
177600 
000021 
000100 


070530 
000140 


000175 


070532 
070536 


000176 
110070 
110064 


177600 
000007 


001134 


070540 
110026 
000001 


071750 
071755 


110162 


070537 
070532 


001140 


000001 


001135 


3$: 


31S: 


32$: 


4$: 


5$: 


TST 


RTI 


N 14 

{sP)+ 3 CLEAN CHARACTER OFF OF STACK 
(sp) .#23 3318 IT uh CONTROLS? 
asTKS +S DISABLE TTY rEYBOARD INTERRUPTS 
(SP)+ 33 CLEAN AN CHAR OFF STACK 
asTkS :WAIT FOR A CHAR 

1$ $$LO0P UNTIL ITS THERE 
asTkB -(SP) t:GET THE CHARACTER 
#°C177, (SP) SIMAKE IT 7-BIT ASCII 
(SP)+,#21 3315 IT A CONTROL-0? 
31$ SBRANCH IF NO 
#100, a$TKS 3 SREENABLE TTY KEYBOARD INTERRUPTS 
$TKCNT :TCOUNT THIS CHARACTER 

(SP) ,#140 3318 IT UPPER CASE? 

‘BRANCH IF YES 

(SP) #175 3218 ITA SPECIAL CHAR? 
4$ 33BRANCH IF YES 
#40, (SP) ; SMAKE 'T UPPER CASE 
(SP5+,a$TKQIN PUT IT IN QUEUE 
$TKQIN :Fuppare THE POINTER 
STKQIN,#STKQEND ::GO OFF THE END? 


SBRANCH_IF NO 
#STKQSRT ,STKGIN RESET THE POINTER 
; RETURN 


{RRRERRRRRRRERARARARRAERRE EAR AA AA AERA ERE RERARAAARRR ARERR TERED 
; RSOF TWARE SWITCH REGISTER CHANGE ROUTIN 
7*ROUTINE IS ENTERED FROM THE TRAP HAN LE 
s*SERVICE THE TEST FOR CH 


> *CALL = OPERA 


SCKSWR 


* ENE 
TSTB 


ANGE 
TING IN TTY 
#SWREG, SWR 


a$TKS 
15$ 
a$TKB,-(SP) 


#°C177, (SP) 
(SP) #7 
2s 


DLER, AND WILL 
IN SOFTWARE SWITCH REGISTER TRAP 
rn t MODE. 
z1S TH yaa -* poe SELECTED 
2 hol EXIT 
33MAKE_IT 7~BIT ASCII 
33 ONTROL~G? 
331F NOT in IT IN THE TTY QUEUE 


{RRR ER RRRERERERER ARE ERE RARER AREA ERAERERAAAAAAAAAAAA AAAS 
?RCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY rey SERVICE 
Z*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RES 
:*CONTROL-G BEING TYPED, AND THE re Al SWITCH REGISTER BEING SELECTED. 

6$: CMPB $AUTOB 41 UTO-MODE? 


SGTSWR: 


pe STKINT 
astk 
#1,SINTAG 
»SCNTLG 
°SMSWR 
SWREG,-(SP) 


7zARE WE RUNNING IN 


ANCH IF YES 
scclE CONTROL-G OFF ea 
;FLUSH THE TTY INPUT QUEUE 
$b] ISABLE TTY KEYBOARD INTERRUPTS 
tiser INTERRUPT MODE INDICATOR 


32ECHO THE CONTROL-G (*G) 

33TYPE CURRENT ene 

32SAVE SWREG FOR TYPEOU 

33:G0 TYPE--OCTAL ASCITCALL DIGITS) 


ULT OF A 


7 i a 


SEQ 0182 





“oo 


ssn Asn AtAtAtAt AtntAtAathtAtA [ALAA MNMNNANNANNNNHHNHUVNHNMHHNYHHVUNUUYUDDDIVIVIDVVZAAA®A 


15 
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2 FERRARA EERE RRERAE EERE RERARERRERARAEREREER EE 


TTY INPUT ROUTINE 
071142 104401 071766 TYPE  ,$MNEW :;PROMPT FOR NEW SWR 
0/1146 005046 19$: {LR =(SP) ':CLEAR COUNTER 
071150 005046 CLR -(SP) +: THE NEW SWR 
071152 105777 107766 7$: TSTB = @STKS *:CHAR THERE? 
071156 100375 BPL 7$ ::IF NOT TRY AGAIN 
071160 117746 107762 MOVB  a$TKB,=(SP) ::PICK UP CHA 
071164 042716 177600 BIC #°C177, (SP) S:MAKE IT eet ASCII 
071170 021627 000003 CMP (SP) #3 r1S IT A CONTROL-C? 
071174 001015 BNE 3 3BRANCH IF NOT 
071176 104401 071736 TYPE  ,$CNTLC YES, ant cho CONTROL C (*¢) 
071202 062706 000006 ADD #6,SP :: 
071206 123727 001135 000001 CMPB ~—s $INTAG, #1 REENABLE TY KEYBOARD INTERRUPTS? 
071214 001003 BNE 8$ + TBRAN CH IF NO | 
071216 012777 000100 107720 MOV #100, a$TKS * ALLOW TTY KEYBOARD INTERRUPTS 
071224 000137 02240 as: JMP START t:CONTROL-C RESTART | 
071230 021627 000025 9$: CMP (SP) #25 ::1S IT A CONTROL-U? | 
234 001005 BNE 10$ : SBRANCH IF NOT 
071236 104401 071743 TYPE  ,$CNTLU YES, ECHO CONTROL-U (“U) 
071242 062706 000006 20$: ADD #6, SP STIGNORE PREVIOUS INPUT 
071246 000737 BR 19$ StLET'S TRY IT AGAIN | 
071250 021627 000015 10$: CMP (SP) #15 ziS IT A <CR>? | 
071254 001022 BNE 16$ 3 BRANCH IF NO 
071256 005766 000004 TST 4(SP) YES, IS IT THE FIRST CHAR? 
071262 001403 BEQ 11$ BRAN ANCH IF YES 
016677 000002 107646 MOV 2(SP) ,aSWR +: SAVE NEW SWR 
071272 062706 000006 11$: ADD 6, SP Z3CLEAR UP STACK 
071276 104401 001207 14$: TYPE SCRLF iE CH HO <tr> AND < 
071302 123727 001135 000001 CMPB ss S$INTAG,, #1 RE-ENABLE TTY SD INTERRUPTS? | 
071310 001003 BNE 15$ 3 IBRANCH IF NOT 
071312 012777 000100 107624 MOV #100, a$TKS RE-ENABLE TTY KBD INTERRUPTS 
071320 000002 15$: RTI + :RETURN ; 
071322 004737 067734 16$: JSR PC,$TYPEC *:ECHO CHAR 
071326 021627 000060 CMP (SP) ,#60 +: CHAR < 0° 
071332 002420 BLT + BRANCH II’ YES 
071334 021627 000067 CMP (SP), ¥67 *:CHAR > 
071340 003075 BGT BRANCH If YES | 
071342 042726 000060 BIC #60, (SP)+ 33STRIP-OF ASCII 
071346 005766 000002 TST 2 (SP) *:1S THIS THE FIRST CHAR 
071352 001403 BEQ 17$ +:BRANCH IF YES 
071354 006316 ASL (SP) 33ND, SHIFT PRESENT 
071356 006316 ASL (SP) +: CHAR OVER TO MAK 
071360 006316 ASL (SP) +: ROOM FOR NEW ONE. 
071362 005266 000002 17$: INC 2(SP) +:KEEP COUNT OF CHAR 
071366 056616 177776 BIS -2(SP), (SP) 33SET IN NEW CHAR 
071372 000667 BR 7$ ‘GET THE NEXT ONE 
071374 104401 001206 18$: TYPE SQUES *TTYPE 2<CR><LF> 
071400 000720 BR 50$ +: SIMULATE CONTROL-U 
.DSABL LSB 
J 


15 
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TTY INPUT ROUTINE 


era ROUTINE WILL INPUT A SINGLE CHARACTER FOM THE TTY 


32 
3* RDCHR z:GET A CHARACTER FROM THE QUEUE 
3* RETURN HERE s;CHARACTER IS ON THE STACK 
3* 7z;WITH PARITY BIT STRIPPED OFF 
071402 011646 SRDCHR: MOV (SP) ,=(SP) ::PUSH DOWN THE PC AND 
071404 016666 000004 000002 MOV 4(SP5 ,2(SP) TITHE PS 
071412 005066 000004 CLR 4(SP) ::GET READY FOR A CHARACTER 
071416 005046 CLR -(SP) +:PUT NEW PS ON STACK 
071420 012746 071426 MOV #64$,-(SP) *:PUT NEW PC ON STACK 
Or ese 000002 648 RTI 3z;POP NEW PC AND PS 
071426 005737 070530 1$: TST STKCNT :z;WAIT ON A CHARACTER 
071432 001775 BEQ 1$ 
14 005337 070530 DEC STKCNT s;DECREMENT THE COUNTER 
071440 117766 177070 000004 MOVB @$TKQOUT,4(SP) ;;GET ONE CHARACTER 
071446 005237 070534 INC TKQOUT : UPDATE THE POINTER 
071452 023727 070534 070537 CMP STKQOUT,#STKQEND ;;DID IT GO OFF OF THE END? 
1460 001003 BNE BRAN 
071462 012737 070536 070534 MOV #STKQSRT,STKQOUT ;;RESET THE POINTER 
071470 000002 2s: > :RETURN 


© REAR EREEREERARREEEREEEREREREERRREEEEREREREREREREREERAEEREREREEEE 


i STHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
** : 


* RDLIN Z2INPUT A STRING FROM THE TTY 
3s RETURN HERE TZADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3 SI TERMINATOR WILL BE A BYTE OF ALL O'S 
071472 010346 SRDLIN: MOV R3,~(SP) T2SAVE_R3 
071476 003046 CLR =(§P SICLEAR THE RUBOUT KEY 
071476 012703 071726 1$: MOV #STTYIN,R3 SIGET ADDRESS 
071502 022703 071736 2s: CMP WSTTYIN®8..R3 =; :BUFFER FULL? 
071506 101456 BLOS 4$ $8 F YES 
071510 104610 RDCHR 7:GO READ ONE CHARACTER FROM THE TTY 
071512 11261 MOVB = (SP)+, (R3) 3IGET CHARACTER 
071514 122713 000177 10$-  CMPB  =- #177, (R3) S:1S IT A _RUBOUT 
071520 001022 BNE 5$ 7:BR IF NO 
071522 005716 TST (SP) [IIS THIS THE FIRST RUBOUT? 
0715246 001007 BNE 6$ 7:BR_IF NO 
071526 112737 000134 071724 mMOVB = #"\,, 98 S:TYPE A BACK SLASH 
071536 104401 071724 TYPE =, 
071540 g1271 177777 MOV #-1, (SP) z:SET THE RUBOUT KEY 
71544 00530 6$: DEC 7 :BACKUP BY ONE 
1346 0203 071726 CMP R3,ASTTYIN SISTACK EMPTY? 
.1§52 1 BLO 3:8R_IF YES 
071554 111337 071724 MOVB = (R3),9$ TISETUP TO TYPEOUT THE DELETED CHAR. 
071560 104401 071724 TYPE 9$ 3:G0 TYP 
071564 746 BR a$ [:G0 READ ANOTHER CHAR. 
071 5716 5$: TST (SP) SZRUBOUT KEY SET? 
0715 001406 BEQ 7$ 7:BR IF NO 
071572 112737 000134 071724 MOVB = #*\ ,9$ T:TYPE A BACK SLASH 
071 104401 071724 TYPE, 
071604 905016 CLR (SP) ::CLEAR THE RUBOUT KEY 
071606 122713 000025 7$: CMPB Ss #25, (R3) Sr1S CHARACTER A CTRL U? 
071612 001003 BNE 8$ 7:BR IF NO 











D 15 
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071614 104401 071743 TYPE SCNTLU z:TYPE A CONTROL “'U" 
O7162) 900726 BR is 3360 START OVER |, 
071622 122713 000022 8$: CMPB ss #22, (3) +I1S CHARACTER A ‘*R''? 
071626 01011 BNE 3$ tIBRANCH IF N 
071630 105013 CLRB —s-_- (R3) Z3CLEAR THE CHARACIER 
071632 104401 001207 TYPE  ,$CRLF STYPE A & LF 
071636 104401 071726 TYPE STTYIN tI TYPE THE INPUT STRING 
071642 0C0717 BR 8$ $360 BICKUP ANO.HER CHACTER 
071644 104401 001206 4$: TYPE $QUES YPE A 
071650 900712 BR is tICLEAR THE BUFFER AND LOOP 
071652 111337 071724 3$: MOVB = (R3),,9$ t:ECHO THE CHARACTER 
071656 194201 071724 TYPE =, 
071662 122723 000015 CMPB ss #15, (R3)+ :3CHECK FOR RETURN 
071666 001305 BNE 73LOOP_ IF NOT RETURN 
071670 105063 177777 CLRB 2s = 1 (R23) 3c LEAR RETURN (THE 15) 
071674 104401 001210 TYPE  ,SLF TYPE A LINE F 
1700 005726 TST (SP) + +: CLEAN RUBOUT KEY FROM THE STACK 
071702 012603 MOV (SP)+,R3 RESTORE R3 
71704 011646 MOV (SP) ,=(SP) i SADJUST - THE STACK AND PUT ADDRESS OF THE 
71706 016666 000004 000002 MOV 4(SP5 ,2(SP) 3 FIRST ASCII CHARACTER ON IT 
071714 012766 071726 000004 MOV #STTYIN, 4 (SP) 
071722 000002 RTI RETURN 
071724 000 9$: .BYTE 0 3; STORAGE FOR ASCII CHAR. TO TYPE 
071725 900 “BYTE 0 R 
071726 STTYIN: .BLKB 8. ; RESERVE 8 Bytes FOR TTY INPUT 
071736 136 SCNTLC: .ASC /*C/<15><12> ONTROL ° 


03 015 IZ 

25 015 : IZ /*U/<15><12> : ECONTROL sy 
07 015 S$CNTLG: .ASCIZ /*G/<15><12> 3sCONTROL *'G’ 
12 123 SASWR: IZ <15><12>/SWR = / 

40 116 IZ / NEW = / 


OO ons 
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READ AN OCTAL NUMBER FROM THE T 


072136 


oa 
oa 


nd ad ad od od 
Peose 
AAA 


g 


Sooo—oo0°0o°oo 
wo 


o=w- 


a 
QCOAn—nNo-— 


=33-s 
No 
VaSsssq 


000000 


000004 000002 


072126 


000060 
000067 


001206 


E 15 


.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


FRRRARAAREREERERARRREREARERERARRERRRAEREEREREERRRERERRRERERRERRR 


THIS pour ie Ht READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


SSOCTAL DIGITS. IF AN IL 
[*FOLLOWED BY A CARRIAGE RETURN-L INE FEED. THE COMPL 


THEN BE RETYPED. THE INPUT 


*CALL 
+ 
® 


$RDOCT: 


1$: 


2$: 


3$: 


4$: 


5$: 


SHIOCT: 


RDOCT 
RETURN HERE 


BR 
» WORD 


(SP) ,=(SP) 


4 (SPS « 2 (<P) 
RO,=(SP) 


R1,~(SP) 
R2,~(SP) 


(SP)+,RO 
0,5$ 


e 


R2 
(RO)+,=(SP) 


#*C7, (SP) 
(SP)+,R1 
2$ 


(SP)+ 
R1,12(SP) 
R2,$HIOCT 
(SP)+,R2 
apie. R1 
SP)+,RO 


(SP)+ 
(RO) 


o 


SQUES 
i$ 
0 


NARY. 
HARACTERS WILL BE ey fps TO oy THEY ARE LEGAL 
LLEGAL CHARACTER IS READ WILL BE a nat 


ETE NUMBER MUS 
S TERMINATED BY TYPING A CARRIAGE RETURN. 


3 ¢READ AN _OCTAL NUMBER 
3;LOW ORDER BITS ARE ON TOP OF THE STACK 
HIGH ORDER BITS ARE IN SHIOCT 
: :PROVIDE SPACE FOR THE 
T NUMBER 


7ZPUSH RO ON STACK 
ae R1 ON STACK 


R2 ON STACK 
SEREAD AN ASCIZ LINE 
oD ADDRESS OF 1ST CHARACTER 


E IT 
7:CLEAR DATA WORD 


EsPICKUP THIS CHARACTER 


:IF ZERO GET OUT 
SIMAKE SURE THIS CHARACTER 
31S AN OCTAL DIGIT 


332 
33%4 
32%8 


hte THE ASCII JUNK 
D_IN THIS DIGIT 


SICLEAN TERMINATOR FROM STACK 
SAVE THE RESULT 


33POP STACK INTO R2 
2 3POP STACK INTO R1 
2 POP STACK INTO RO 


3 URN 
SICLEAN PARTIAL_FROM STACK 
3:SET_A TERMINAT 

3; TYPE UP THRU THE BAD CHAR. 


Ty ihe sm “rer & "UF 
ee AGAIN 
3:HIGH ORDER BITS GO HERE 





a4 —— 


SEQ 0186 





SE A eS SS NS 
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SAVE AND RESTORE RO=-R5 ROUTINES 


072140 


072140 010046 

072142 010146 

072144 010246 

072146 010346 

072150 010446 

072152 010546 

072154 016646 000022 
072160 016646 000022 
72164 016646 000022 


0 
072170 016646 000022 
072174 000002 


072176 
072176 012666 000022 
12666 


0 
0 
072212 g1se8e 000022 


072230 012600 
072232 000002 





~SBTTL SAVE #D RESTORE RO-R5 ROUTINES 


RRR RRRRERE ER KREREEEREEEEREREREERERRERRERRARERRRERARRERRRA REE RS 


iat, RO-R5 


SAVREG 
{UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


i sTOP===(+16) 
3% +2~==(+18) 


TH 4G==2R5 
Tt +8-=-R3 
e412—=-R1 
:#+14==-RO 


SSAVREG: 
M 


ge RO-R5 
RESREG 


SRESREG: 
M 


R5,=(SP) 

22(SP) ,-(SP) 
22(SP) ,=(SP) 
22(SP) ,=(SP) 
22(SP) ,-(SP) 


(SP)+,RO 


33PUSH RO ON STACK 
33PUSH R1 STACK 


2sSAVE PC OF CALL 


zsRESTORE PC OF CALL 
zsRESTORE PS OF CALL 
3zRESTORE PC OF MAIN FLOW 
3;RESTORE PS OF MAIN FLOW 
+ POP STACK INTO R5 


SEQ 0187 
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TRAP DECODER 


072254 


072256 
072260 
072266 


072270 


011646 
016666 
000002 


072256 


070304 
071130 
071040 


072176 


000002 


072270 


000004 000002 


-SBTTL TRAP DECODER 


FRRARERRRARARRERAARRERRERERE RARE ERERERARERRRRERRERRERERRRAREE ERS 


jeTMIS ROUT oft Oe THE LOWER BYTE OF i. 


RR speay 


SEQ 0188 


**TRAP'* INSTRUCTION 
THE STARTING ADDRESS 


HE TRAP TABLE F 
‘SOF THE DESIRED "ame THEN USING THE ADDRESS OBTAINED !T WILL 


USE IT TO INDEX THROUGH TH 
7*GO TO THAT ROUTIN 
STRAP: MOV RO,-(SP) 
MOV 2(SP) ,RO 
TST =(RO) 
MOVB (RO) RO 
ASL 
MOV $TRPAD(RO) ,RO 
RTS RO 


3 SAV 


:BA 
IGE 


3: THIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 


7sMOVE THE PC DOWN 
3sMOVE THE PSW DOWN 
zsRESTORE THE PSW 


$TRAP2: MOV 
MOV 


(SP) ,=(SP) 


4(SP) ,2(SP) 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3*BY THE ‘‘TRAP’’ INSTRUCTION. 


; ROUTINE 


$TRPAD: .WORD 
$T 


STYPDS 
S$GTSWR 
S$CKSWR 


CT ;;CALL= 
S$SAVREG ;;CALL=SAVREG 
SRESREG ;;CALL=RESREG 


STRAP2 
3:CALL=TYPE 


3; CALL=TYPOC 
3;CALL=TYPOS 
3; CALL=TYPON 
33CALL=TYPDS 


3; CALL=GTSWR 


TRAP#5(104405) 
TRAP+6 (104406) 


TRAP+7 (104407) 
eh 992k 


ee a 


2 
Lr 


AVE RO 
IGE TRAP meee 


UP BY 
RIGHT BYTE OF TRAP 
+ POSITION FOR INDEXING 
EX TO TABLE 


160 TO ROUTINE 


TTY TYPEOUT ROUTINE 
TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
ING ZE 
TYPE DECIMAL NUMBER (WITH SIGN) 
GET SOFT=-SWR SETTING 


TEST FOR CHANGE IN SOFT=SWR 
wy TYPEIN CHARACTER ROUTINE 


oie AN ao FROM TTY 
RESTORE RO-RS ROUT INE 
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CZRNHAO 
TELETYPE MESS 
-SBTTL TELETYPE MESSAGES 
g Ors ¢¢ 200 108 116 ENTERA: .ASCIZ <CRLF>/ENTER DRIVE ADDRESS: / 
4 072351 040 07 111 ADRERR: .ASCIZ_ / ?INVALID ADDRESS/<CRLF> 
5 brs 74 200 120 117 PORTAIS: .ASCIZ <CRLF>/PORT ‘A* ADDRESS IS: / 
6 07 183 200 120 117 PORTBIS: .ASCIZ <CRLF>/PORT °B* ADDRESS IS: / 
7 07245 200 116 117 NOCLOCK: .ASCIZ <CRLF>/NO SYSTEM ‘L* OR ‘P* CLOCK/<CRLF><LF> 
8 072510 012 105 116 TESTNO: .ASCIZ <LF>/ENTER TEST #: / 
9 072530 040 077 111 BADNO: .ASCIZ / 2INVALID TEST NUMBER/<CRLF> 
10 072557 040 105 136 TSTERR: .ASCIZ / ERRORS/<CRLF> 
11 072570 200 012 122 ADDRIS: .ASCIZ <CRLF><LF>@RH/RM ADDRESS (RMCS1) IS: @ 
12 072625 012 105 116 NTRH: .ASCIZ <LF>@ENTER RH/RM ADDRESS: @ 


own 


—_ 


———— = -- ey 
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TEST ERROR MESSAGES | 





1 -SBTTL TEST ERROR MESSAGES 
3 072654 127 16 117 ‘EMI: eASCIZ /WRONG DRIVE TYPE/ 
4 072675 104 1 111 ~EM2: eASCIZ /DRIVE NOT ON LINE/ 
5 072717 123 105 122 EMS: eASCIZ /SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME/ | 
6 073001 104 122 117 EM4: eASCIZ /DRIVE NOT SEIZED BY PORT/ 
? 073032 127 122 117 «EMS: sASCIZ /WRONG STATUS SEEN BY THE SEIZING PORT/ 
8 073100 122 105 107 EM6: eASCIZ /REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT = DRIVE WAS SEIZED/ 
9 073200 122 105 107 EM?: eASCIZ /REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 
10 073261 122 105 107 EM10: .ASCIZ /REGISTER CONTENTS WRONG 
11 073311 103 117 116 EM11: .ASCIZ ONTROL BUS PARITY ERROR READING INDICATED REGISTER/ 
12 073375 104 122 111 EM12: .ASCIZ /DRIVE NOT SEIZED BY DRIVE CLEAR 
13 073445 122 105 101 EM13: .ASCIZ /READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/ 
14 073532 126 117 114 EM14: .ASCIZ /VOLUME VALID SET THE PORT/ 
15 073575 101 124 124 €M15: .ASCIZ /ATIN BIT WRONG AFTER TIMEOUT = REQUEST NOT SET/ 
16 073654 101 124 124 EM16:  .ASCIZ /ATIN BIT WRONG AFTER RELEASE - REQ E 
17 073727 101 124 124 EM17:  .ASCIZ /ATTN BIT WRONG AFTER RELEASE = REQUEST NOT SET/ 
18 074006 104 122 111 —M20: .ASCIZ /DRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED/ 
19 074066 104 122 111 EM21: .ASCIZ /DRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT/ 
20 074141 104 122 111 EM22: .ASCIZ /DRIVE NOT IN NEUTRAL AFTER TIMEOUT = REQUEST NOT SET/ 
21 074226 124 111 115 EM23: .ASCIZ /TIMEOUT CLEARED THE DRIVE'S ERROR BIT/ 
22 074274 122 105 114 EM24:  .ASCIZ /RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET/ 
23 074353 124 111 115 EM25:  .ASCIZ /TIMEOUT ONE-SHOT DID NOT RETRIGGER/ 
24 074416 104 122 111 EM26:  .ASCIZ /DRIVE_NOT IN NEUTRAL AFTER RELEASE = REQUEST NOT SET/ 
25 074503 122 105 107 EM27: .ASCIZ /REGISTER WRONG AFTER RELEASE WITH REQUEST SE 
26 074561 104 122 111 EM30: .ASCIZ /DRIVE SEIZED BY RELEASE C ISSUED WHEN DRIVE IN NEUTR4L/ 
27 074656 104 122 111 EM31: .ASCIZ RIVE TRAL AFTER RELEASE = REQUEST SET 
28 074735 101 124 124 EM32:  .ASCIZ /ATIN BIT WRONG AFTER RECALIBRATE C / 
29 075004 104 122 111 —M33:  .ASCIZ /DRIVE RETURNED TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED/ 
30 075106 104 122 111 EM34:  .ASCIZ /DRIVE RETURNED TO NEUTRAL I S NIT GIVEN WHILE DRIVE SEIZED/ 
31 075211 124 111 115 EM35: .ASCIZ /TIME ONE SHOT FIRED WITHOUT REGISTER ACC 
32 075270 124 111 115 EM36: .ASCIZ /TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/ 
3 075342 104 122 111. EM37:  .ASCIZ /DRIVE IS NON-EXISTENT (*NED* BIT SET)/ 
34 075410 101 124 124 €M40: .ASCIZ /ATIN BIT FOR PORT NOT_RESET BY MASSBUS CLEAR/ 
35 075465 124 111 115 EM41:  .ASCIZ /TIMEOUT CLEARED THE ATTENTION BIT/ 
075.27 104 122 111 EM42:  .ASCIZ /DRIVE NOT IN NEUTRAL OR SEIZED AFTER ATTN BIT WRITTEN/ 
37 07° 015 104 122 111 EM43: .ASCIZ /DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN/ 
075672 127 122 111 EM44: .ASCIZ /WRITE ATTENTION BIT DID NOT SET PORT REQUEST/ 
39 075747 120 117 122 EM45: .ASCIZ RT SELECT SWITCH ON DRIVE, 
40 076021 103 101 116 EM46:  .ASCIZ /CAN'T ACCESS DRIVE THROUGH EITHER 
41 076070 101 124 124 EM47: .ASCIZ /ATIN BIT FOR SEIZING PORT Y MASSBUS_INIT/ 
42 076156 101 124 124 EMS9: .ASCIZ /ATIN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CL 
43 076240 101 124 124 EM51:  .ASCIZ /ATTN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL/ 
44 076327 124 110 105 €M52: .ASCIZ /THE ATTN BIT SET AFTER TIMEOUT WITH NO REQUEST & ‘ERR® SET/ 
45 076422 103 101 116 EM53: .ASCIZ /CAN'T READ THE ATTN BIT FROM THE ‘OPPOSITE’ PORT/ 
46 076503 122 105 114 EM54: .ASCIZ LEA D RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT/ 
47 076576 124 111 115 EM55:  .ASCIZ /TIMEOUT ONE-SHOT IS LESS T S/ 
48 076645 122 110 057 EM56: .ASCIZ H/RM DIDN'T RESPOND TO ADDRESSING@ 
49 076706 120 117 i$ EMS7:  .ASCIZ /PORT REQUEST FLOP(S) WRONG S 
50 076747 101 124 124 EM60: .ASCIZ /ATTENTION NOT RESET BY WRITING RMAS/ 
51 077013 101 124 124 EM61:  .ASCIZ /ATTENTION NOT RESET BY GO/ 
52 077045 101 124 124 EM62: .ASCIZ /ATTENTION RESET BY GO WHEN NOT SEIZED/ 
53 077113 104 122 111 EM635: .ASCIZ /DRIVE SEIZED BY ‘MUR C V/ | 
54 077161 107 124 124 €M64:  .ASCIZ /ATTENTION NOT SET BY ‘MUR’ CHANGE IN RMMR1/ | 
55 077234 126 117 114 €M65:  .ASCIZ /VOLUME VALID NOT RESET BY ‘MUR’ IN RMMR1 / 
| 
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eee 
bane bat 


Onnnnnn 
AAA 


SPPPPPPPPPPHPrYrrrrrYrrYr>r 


r>r>>rrrrr> 
ANNNNHHNAHNNHHNHHHMNMNMNMNMM 
AMAAAAAAAAOAAAAAANAANAN 

Ne NN ee NNN ee I Re 


pe bag bg bg Bang beee Pees bas ne beng feng fy Bed bead Bey bed bm ba be ame bmg Pend bee fg bed bmn 


/TEST # ERR PC PORT # REG ADR CONTENTS/ 
/TEST # ERR PC REG ADR PORT A PORT B/ 
/ SEIZE ERROR/<CR><LF> 
/TEST # ERR PC PORT # PORT # REG ADR GOOD BAD/ 
/TEST # ERR PC PORT # REG ADR GOOD BAD/ 
/ RELSNG ERROR/<CR><LF> 
/TEST # ERR PC PORT # PORT # REG ADR GOOD BAD/ 
/TEST # ERR PC PORT # REG ADR CONTENTS/ 
SEIZE ERROR/<CR><LF> 
/TEST # ERR PC PORT # PORT # REG ADR CONTENTS/ 
RELSNG SEIZE/<CR><LF> 
/TEST # ERR PC PORT # PORT #/ 
SEIZE/<CR><LF> 
/TEST # ERR PC PORT # REG ADR CONTENTS/ 
RELSNG/<CR><LF> 
/TEST # ERR PC PORT &#/ 
RELSNG RQSTNG/<CR><LF> 
/TEST # ERR PC PORT # PORT #/ 
/TEST # ERR PC PORT &#/ 
/TEST # ERR PC/ 
RELSNG ERROR/<CR><LF> 
/TEST # ERR PC PORT # PORT &/ 
PORT A PORT B/<CR><LF> 
/TEST # ERR PC RMDS RMDS/ 
TEST F ERR PC PORT # TIMEOUT VALUE (IN MS)/ 


/$RMAD 
/TEST # ERR PC PORT A PORT B/ 
/ EXPCTD RECEVD EXPECTD RECEVD/ 


TSTNUM, SERRPC ,PTNBR, SBDADR, SBDDAT.0 
TSTNUM, SERRPC..SBDADR, SGDDAT ,$BDDAT 0 
TSTNUM, SERRPC .PTNBR, SBDADR, $GDDAT , SBDDAT ,0 
TSTNUM, SERRPC .OPPRT . SBDADR, SBDDAT 0 


TSTNUM. SERRPC. SEIZPT PTNBR.O 
TSTNUM, SERRPC. SEIZPT. OPPRT 6 
TSTNUM, SERRPC .PTNBR,O 
TSTNUM, SERRPC, 

TSTNUM, SERRPC,$TMP2,STMP3,0 
TSTNUM, SERRPC,OPPRT, SEIZPT,O 
TSTNUM, SERRPCSEIZPT,TIME,0 


DR, 
TSTNUM, SERRPC,STMPO,STMP1 ,STMP2,$TMP3,0 


SBDDAT 0 


SEQ 0191 
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SEQ 0192 
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CONSTANTS, TABLES, ETC 


1 .SBTTL CONSTANTS, TABLES, ETC 
5 :TABLE OF TEST STARTING ADDRESSES 
5 101524 003 TSTADR: .WORD TST1 zSTARTING ADDRESS OF TEST 1 
8 101526 004676 ~WORD TST :STARTING ADDRESS OF TEST 2 
1015 006244 «WORD TST :STARTING ADDRESS OF TEST 3 
101532 007612 WORD TST4 :STARTING ADDRESS OF TEST 4 
101534 010742 .WORD TSTS :STARTING ADDRESS OF TEST 5 
101536 012072 «WORD TST6 sSTARTING ADDRESS OF TEST 6 
101540 012544 .WORD TST? :STARTING ADDRESS OF TEST 7 
101542 013216 .WORD TST10 :STARTING ADDRESS OF TEST 10 
101544 014462 «WORD 11 :STARTING ADDRESS OF TEST 11 
101546 015726 WORD TST12 sSTARTING ADDRESS OF TEST 12 
101550 017046 WORD TST13 sSTARTING ADDRESS OF TEST 1 
101552 020166 WORD TST14 ZSTARTING ADDRESS OF TEST 14 
101554 021566 .WORD TST15 ZSTARTING ADDRESS OF \EST 15 D 
101556 023166 WORD TST16 :STARTING ADDRESS OF TEST 16 D 
101560 024112 .WORD TST17 sSTARTING ADDRESS OF TEST 17 D 
101562 025036 -WORD TST20 :STARTI DRESS OF TEST 20 D 
101564 026104 -WORD TST21 :STARTING ADDRESS OF TEST 21 D 
101566 027152 WORD TST22 :STARTING ADDRESS OF TEST 3¢ Dd 
101570 031226 . WORD $123 :STARTING ADDRESS OF TEST 2 D 
101572 031752 2 TST24 :STARTING ADDRESS OF TEST 24 D 
11 101574 033146 WORD TST25 :STARTING ADDRESS OF TEST 25 D 
101576 034342 WORD TST26 sSTARTING ADDRESS EST 26 | D 
101600 036036 .WORD TST27 sSTARTING ADDRESS OF TEST 27 D 
101602 037532 -WORD TSI30 =STARTING ADDRESS OF TEST 30 0 
101604 041226 .WORD TST31 ZSTARTING ADDRESS OF TEST 31 0 
101606 042722 WORD TST32 :STARTING ADDRESS OF TEST 32 0 
101610 044200 .WOR TST33 sSTARTING ADDRESS OF TEST 33 0 
101612 045324 .WOR TST34 sSTARTING ADDRESS OF TEST 34 D 
101614 046222 .WORD TST35 :STARTING ADDRESS OF TEST 35 0 
101616 047120 W TST36 :STARTING ADDRESS OF TEST 36 C 
14 101620 050116 . TST37 :STARTI DRESS OF TEST 37 C 
101622 051114 -WORD TST40 sSTARTING ADDRESS OF TEST 40 0 
101624 053100 WORD TST41 *STARTING ADDRESS OF TEST 41 C 
101626 WORD TST42 sSTARTING ADDRESS OF TEST 4 C 
101630 056340 : TST43 sSTARTING ADDRESS OF TEST 4 C 
101632 057614 .WORD  TST44 :STARTING ADDRESS OF TEST 44 C 
101634 060444 .WORD TST45 *STARTING ADDRESS OF TEST 45 i) 
- 101636 061274 , -WORD TST46 :STARTING ADDRESS OF TEST 46 } 
1 sATTENTION BIT TABLE H 
18 101640 001 ATABIT: .BYTE 1 ZATTENTION BIT FOR DRIVE 0 C 
19 101641 002 BYTE 2 sATTENTION BIT FOR DRIVE 1 E 
20 101642 004 BYTE 4 sATTENTION BIT FOR DRIVE 2 E 
21 101643 010 -BYTE 10 sATTENTION BIT FOR DRIVE 3 E 
22 101644 020 -BYTE 20 sATTENTION BIT FOR DRIVE 4 t 
23 101645 040 -BYT 40 sATTENTION BIT FOR DRIVE 5 E 
24 101646 100 BYTE 100 sATTENTION BIT FOR DRIVE 6 f 
33 101647 200 -BYT 200 sATTENTION BIT FOR DRIVE 7 
33 101650 000052 MAXTN: .WORD 52 :MAXIMUM TEST NUMBER ! 
31 000200 .END 200 
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ADDRIS 072570 ck = 000015 D142 101376 ENS 076643 OPE = 020000 
ADRERR 072351 CRLF = 000200 DT46 191404 EM5 076706 OPI = 020000 
AOE = 901900 Dk. = 10000 DTS 101226 EM6 —s-: 073100 OPPRT 001244 | 
ASR1 001236 DDISP = 17757 D154 =: 10141 ENO 076747 OR = 000200 
ATA = 100000 FI 101464 DTSS —- 10143 EM61 (077013 PAR = 000010 
ATABIT 101640 DF31 «10150 D156 10144 ENG 077045 PAT = 0000 | 
ATO. = 000001 DFS 10151 OTS 101446 EM63. «077113 PFECH 0674 | 
AT! = 000002 OFS 10151 DTé 101244 EM64 077161 PFECH1 067432 
AT2 = 000004 DFS 101471 DT 101260 EM65 077234 PFECH2 067514 
ATS = 000010 oFSS =: 101517 Nve = 0046000 EM? 073200 PFECH3 067546 
AT4 = 000020 DF56 © 101528 Dvc = 000200 ENTERA 072322 067556 
ATS = 000040 DF? 101477 ECH = 000100 ERR = 040000 PFTSIN 067562 | 
ATé = 000100 DH} 077306 EC] = 004000 ERROR = 104000 PGE = 002 
AT? = 000200 DH11. «077750 EMTVEC= 000030 ERRVEC= 000004 PGM = 001000 
Al6 = 000400 DH13. =: 100021 1 072654 EXEC 003062 PIP = 02 
Al? = 001000 DH2 100141 EM10 «073261 ER = 000020 PIRQ = 177772 
BADNO 072530 DH? 100237 EM11 «073311 FMT16 = 010000 PIRQVE= 0002 
BADTMO 002160 DH26 =: 100337 EM1 073375 F = 000002 PORTA 0012 | 
BAI = 000010 DHS. —s-077357 EM1 073445 F1 = 000004 PORTAL 072374 
BITO = 000001 DH31 ~—«- 100416 EM14 07353 F2 = 000010 PORTB 001226 
1T00 = 000001 DH36 ©: 100515 EM1S 07357 F3 = 000020 PORTBI 072423 
BITO1 = 000002 DHS 077426 EM16 073654 FZ = 000040 PORTC 001230 
= 000004 DH42 ©: 100544 EM17 - 073727 = 000001 PRO = 000 
BITO3 = 000010 DH44 «100563 EM2 072675 GTSWR = 104406 PRI = 000040 
BIT04 = 000020 DH46 ~~: 100661 EM20 074006 HCE = 000200 PR2 = 000100 
BITOS = 000040 DH 077551 EM21 074066 HCI = 002000 PR3 = 000140 
BIT06 = 000100 DHSS —«-100756 EM22 074141 HCRC = 000400 PRG = 000200 
BITO7 = 000200 DH56 =: 101034 EM23 074226 HT = 000011 PRS = 000240 
BITO8 = 000409 DH57 ~—s: 101043 EM24 074274 IAE = 002000 PR6 = 000300 
BITO9 = 00100" DH? —s-s«O77625 EM25 074353 IBSAVE 067222 PR? = 000340 
BIT] = 000Cu¢ DISPLA 001142 EM26 074416 IE = 000100 = 177776 
BIT10 = 002000 DISPRE 000174 EM2? 074503 ILF = 000001 PSEL = 002000 
BIT11 = 004000 = 100000 EMS. 072717 ILR = 000002 PSW = 177776 
BIT12 = 010000 DMD = 000001 EM30 «074561 IOTVEC= 000020 PT 001240 
BIT13 = 020000 DPE = 000010 EM31 074656 I = 000100 PWRVEC= 000024 
BIT14 = 040000 DPR = 000400 EM32 (074733 Ive = 010000 RDCHR = 104410 
B1T15 = 100000 DRQ = 004000 EM33. 075004 KYBCTL 001300 RDLIN = 104411 
BIT2 = 000004 DRY = 000200 4 075106 LBC. = 002000 RDOCT = 104412 
BIT3 = 000010 DSWR = 177570 EM35 075211 LBT = 002000 RDY = 000200 
BIT4 = 000020 DTE = 010000 EM36 075270 LF = 000012 RELERR 001254 
BITS = 000040 DTOO = 000001 EM37 075342 LSC = 004000 RELOK = 000001 
BIT6 = 000100 D101 = 000002 073001 MAXTN 101650 RESREG= 104414 
BIT? = 000200 DT02 = 000004 EM40 075410 MCPE = 020000 RESVEC= 000010 
BIT8 = 000400 DT03 = 000010 EM41 075465 MDPE = 000400 RMAS = 000016 
BIT9 = 001000 DT04 = 000020 E 075527 MOH = 020000 RMBA = 000004 
BPTVEC= 000014 DTO0S = 000040 EM43 075615 MOL = 010000 RMCS1 = 000000 
CHANGE 003236 DT06 = 000100 EM44 075672 MUR = 001000 RMCS2 = 000010 
HGADR 001302 D107 = 000200 EM4S 075747 MXF = 001000 RMDA = 000006 
CKCLK 066060 DT08 = 000400 EM46 076021 NBA = 100000 RMDB = 000022 
CKCLK1 066130 DT1 101176 EM47 076070 NED = 010000 RMDC = 000034 
2 066172 D113. —- 101300 EMS 073032 NEM = 004000 RMDS = 000012 
CKCLK3 066202 D122 «101316 EMSO ©: 076 156 NOATA = 000001 RMDT = 000026 
CKERR 001250 D123. —«- 101330 ENS] 076240 NOCLOC 072452 RMECT = 000044 
CKSWR = 104407 T 101212 EM52 «076 NOSEIZ 001252 RMEC2 = 000046 
CLOCK 066212 DT31 101344 ENDS 076428 NTRH 072625 RMERT = 000014 
CLR = 000040 DI36. «191356 EM54 0765 OFD = 000200 RNER2 = 000042 
CPSAVE 067220 D137 «191366 EMS55 076576 OM = 000001 RILA = 000020 | 
| 
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RMMR1 = 000024 TBITVE= 14 TSTADR 101524 U3 0 SLPERR 001110 | 
RMMR2 = 900049 TESTNO 07251 TSTERR 0725 = 0001 SLPVEC 001216 
RMOF = 3 TEST] 00 é TSTNUM 001246 VVSET = 000001 
RMR = TESTIO 01 é 4 TST1 003 64 WATCH 1260 | 
RMSN = 0000 TEST11 014520 TSTIAA 003346 WCE = 040000 
RMWC = TESTI¢ 015764 TST10 015216 WCF = 000040 
ROA = 1 TEST13 017104 TST11 01446 WLE = 004000 
ROB = 046 TEST14 0202 4 Tst1¢ 015726 WRL = 904000 
RQSTA 012 TESTIS 021624 TST13 017046 $AUTOB 0011 
ROSTB 001, TEST16 025224 TST14 020166 DADR 001122 
6 =%000006 TEST17 024150 TST15 021566 SBDDAT 001126 
7 — _=%000007 Teste 004734 S116 02316 $BELL 00120 1 
SAVREG= 104413 TEST20 025074 TST17 02411 S$CHARC 07005 
SC = 100000 TEST21 026142 TST2. 00467 CKSWR 07104 714 
SCOPE = 000004 TEST22 027210 TST20 025036 SCMTAG 001100 072 
SCO = 000100 TEST23 031264 TST21 026104 CM1 = 000001 
$C1 = 000200 TEST24 032010 TST22 027152 $cM2 = 000002 GAD 00 
$C2 = 000400 TESTS 033204 TST23 031226 $CM3 = 000001 EGO 
$C3 = 001000 TEST26 034400 TST24 031752 (M4 = 000005 SRESRE 0721 
$4 = 002000 TEST27 036074 TST25 033146 SCNTLC 071736 R 001304 | 
SEIZPT 001242 T3 006302 TST26 SCNTL 071730 SRMVEC 001306 | 
I 100000 TEST30 037570 TST27 036036 SCNTLU 07174 SRTNAD 066052 
TACK = 001100 TEST31 041264 TST 006244 001207 SSAVRE 072140 
START 002240 TEST32 042760 TST30 037532 $DBLK 070520 SCOPE 066314 
START1 002250 TEST:3 044236 TST31 041226 SDOAGN 066050 $SETUP= 000127 | 
START 2256 TEST34 045362 TST32 042722 $DTBL 070510 $STUP = 177777 
STKLMT= 177774 TEST35 046260 TST33 044200 SENDAD 066040 SSVLAD 066622 
0 TEST36 047156 TST34 045324 SENDCT 065676 $SVPC = 000210 
SwWR 001140 TEST37 050154 TST35 046222 SENULL 066054 $SWR = 166000 
SWREG 000176 TEST4 007650 TST36 047120 P 065632 SWRMK= 000000 
swO. = 000001 TEST4O 051152 TST37 050116 SEOPCT 065670 STIMES 001176 
swOO = 01 TEST41 053136 S14 007612 SERFLG 001103 TKB. 001146 
swO1 = 000002 TEST42 055122 TST40 051114 001115 STKCNT 070530 
sw02 = TEST43 056376 TST41 053100 RROR 066676 $TKINT 070540 
SwO3 = 000010 TEST44 057652 TST42 055064 SERRPC 001116 $TKQEN= 070537 
Sw04 = 000020 TEST45 060502 TST43 056340 SERRTB 001310 $TKQIN 070532 
SwO5 = 000040 TEST46 061332 TST44 057614 SERRTY 067224 TKQOU 070534 
Sw06 = 000100 TEST47 062216 TST45 060444 SERTTL 001112 $TKQSR 070536 
SwO7 = 000200 STS 011000 TST46 061274 ESCAP 001200 TKS 001144 
SwO8 = 000400 TESTSO 063102 TST47 062160 SFILLC 001156 STKSRV 070610 
swo9 = 001000 TESTS1 064374 ST5. 010742 SFILLS 001155 TMPO 001164 
Swi = 000002 TEST6 012130 TST50 063044 GDADR 001120 STMP1 001166 
Sw10 = 002000 TEST7 012602 TST50B 064114 S$GDDAT 001124 $TMP2 001170 
SW11 = 004000 TIME 001256 TST51 064336 $GET42 0660 0 $TMP3 001172 
Swi2 = 010000 TIMEA 001262 TST51B 065406 GTSWR 071130 STMP4 001174 
Sw13 = 020000 TIMEAM 001266 TST52 065630 $GT42P 066024 STN = 000053 
SWw14 = 940000 TIMEAP 001264 TST6 012072 HD = 000000 $TPB 001152 | 
Sw15 = 10000 TIMEB 001270 TST? 012544 SHIOCT 072136 STPFLG 00115 | 
SW2 = 000004 TIMEBM 001274 TYPDS = 104405 ICNT 001104 $TPS. 001150 
Sw3 = 000010 TIMEBP 001272 TYPE = 104401 SINTAG 001135 TRAP 072234 
Sw4 = 000020 TIMES 901276 TYPOC = 104402 SITEMB 001114 STRAP2 072256 
Sw5 = 000040 TKVEC = 000060 TYPON = 104404 LF 901210 TRP = 900015 
Sw6 =: 000100 TOLER 066254 - TYPOS = 104403 SLKCSB 001214 STRPAD 072270 
SW7 = 000200 TPVEC = 000064 UNS = 040000 $LKCSR 001212 STSTNM 001102 | 
Sw8 = 000400 TRAPVE= 000034 UPE = 020000 $LKS 001220 STTYIN 071726 
Sw9 = 001000 TRE = 04000 uO = 000001 SLLVEC 00122 STYPDS 070304 
TAP = 040000 TRIVEC= 000014 ul = 000002 SLPADR 001106 STYPE 067564 


PROC RTOMMOOOZ EACH TO MmMOOWZS 


a ee 
ee 
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STYPEC 067734 $TYPOC 67019 


$TYPOS 07005 $XON_ = 00008! $$GET4= 000000 
STYPEX 070054 STYPON 07 6 


2 
6 $XOFF = 00002 $XTSTR 0663 SOFILL 070301 


. ABS. 101652 000 

000000  —-001 | 

ERRORS DETECTED: 0 | 

VIRTUAL MEMORY USED: 61952 WORDS ( 242 PAGES) 
PAGES 


DYNAMIC MEMORY AVAILABLE FOR 71 
»A: CZRNHA/C=A:CZRNHA.DOC ,CZRNHA,SYSMAC/M 





SEQ 0197 


C 16 


00 ) 
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10-14 


$SGET4 10-1 


16-1* 16=1* 


16-14 











9-267 


ee 


ee 
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Sannianarest ser sexigee eer’ 
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KROAWMMRARMNNOOCOMDOADRNUNNA—OMR FRO 
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DAARAARARAAARARAAA AAD AAAA AD AF 
J . 4 x xs J we xx x“ = 
RUMMMNANOOMNMNA ONMAD st -F O~T 00.000 0N 
LAMM AMMNOCOOMDBOARNNNA— ON TRA 
CODCOD. CONOR 22 oe ee carers VV IN NAAAAGCS- COdcamM 
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e * “* =-* * om . ed 5 ol 4 
ARUNMMMANOOMNNA ONM AO ss FF OTC 0000N 
ROAWMMRA-MMNOOOMDOAANNCOe$ OMA. th.0 
COCO DOOD ce ce ce ences V VMN MAAAAGCS CO6timMe 
seoeepevpeeeeepeeseepeeerereseeeeereeves 
DAAAA AAD AA DAD DDD DD HAHAHA HDD WF OO 
— 
w = . J zx « cs x« me od = 
CW: AAMMNOOCMMNMNAADMMNAA wT OT ODOM 
ROW LA MMUiCOO— DOADANUNCMARK KAR TRWN 
ON TTT TEPER URAL UTE EE OT 
AOAAAAAAE AAGARAAAAARAAAAAAAD 0 
es 4 
ee ad a env axe ae * od xxx 
RNMMANAMNOOMPMAAMMAD Awww ovrwsODOMNN 
NOMARRMAMIANOO— DOOKU. NANAK KAR SRS 
eRe EeeeEES CCE P Eee eUrbeee we 
DADA AAADAAAAAAAAAAAGAAL RAGA 0D 
as 
oa oe * ee2x 2 “« a ee 
ee ee nah 
RAWMMPR MMO Or DO NNO OnRTrM 
ORR EREEEUSE ROE EEE O ORE RE ERA 
PAAPAAAAO PAAAAAAAAAAAARAAO 
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ee OO ma 
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CROSS REFERENCE TABLE (C 


CZ 





SEQ 0200 





9-712" 9-2732% 9-2786% 9-all*  9-a76* 


9->44n 


-00 ) 


CZRNHAO_RM80 DUAL PORT P71 4 ow V04.00 15-JAN-82 07:09:22 PAGE S-4 


CROSS REFERENCE TABLE (CREF V 


9-111 9-133 24-47 


9-108* 





SEQ 0201 
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13-1 13-1 13-1 13-1 


13-1 


18-1 


18-1 


18-1 18-1* 18-1* 18-1* 18-1* 18-1* 18-1* 


18-1 


H 16 


4.00 15-JAN-82 07:09:22 PAGE S-6 
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RORKnAMOnSSO SRMaEMeNNMaNesoNn Omri nnmansson Saks UMASud 
Sad 
SOCRISSZE ASHES SRN ON By Man SRR ON res SHFNSRALASS 
wn PTR TL OTT MMA PTT TTT MPAA OR. 0008 YiR55 —/) PPPST ITT 
ddddddddddddd AdAAAAAGAAAAASA AAAAAAAAAAAAAAA AAAAAAAAAA 
RaeduamondsS an SdmeammansSoan on Sameammonsdsan Son aadmASmo. 
- oa 
SERRA OSHA MROROORANT ONTOS MROROR RINT ONO S SASSSRALCRAS 
WA ‘ Oaevviee rene DO VIAASS MMSANOROA«VIAAG Treetiddd 
dddddddddddd AddAdAAAAAPDADA AADAAAAAAAAAAAAA AAAAAAARAAH 
RacdumondedS aSsSamctmhmoandgson asSamechmandsaur Samaanamnomo 
- aie oe 
SRE NMOS OS SSO RAC ORA SS DOSRORUANSORROS SMURRNRMAD 
RReRRROOEDRRHUD ODORS OER OR: MINOR VN ACs CRAIG os os 0 
o PRADA AAA GAAS AAAADAAAADAS SAAAAAAAAAAAAAS PBAAAAARAAAAR 
ze 2 sex ef sae 7¢ . a . *¢ z« 2see2e ec ae 
RAIMA NIUNIR DR DONRS ONDA MMAR ODN RZORIAK MMOD OW SHOR 
ORR ASRSE RAN DOSOAOKAINNK-DOAAROS DOOCRO NNN SAAOS OMAUANRARMNO 
RSPLSR CTY PASTS OT OPTS TLL C TATE PETTITTE LLeie Goth eetide 
AddrdddddddddddAAAAAAAAAAAAAAA AAAAAAPAAAAEAAARAR AAAAAAAAAAO 
ese 2 eer ecee zs . zeae ¥ «x . sxe * 3 “« zs xe 
RAMANUINSS ISR DONT ORLAKMMANHR ODD RIOPRAKMMAHHR ODO POOR 
FVOKNAMOMA ARAL DDOIRTK-MANOOARO OGHORSe MAN ODEROS OMNIA MINS 
REESE TTY T SPEOTTOPT ST TTT LaTe PETTITT EGE? Lee itri tide 
Ad dddddddddddddddAADAAAAAAAHR AAAAPAAAAAAAAGAAA ABARAARAAAAAS 
ee * cs xf . a cs . ed “« , ad e 2“ xsx2ae x“x« 
KAI EMOADADONASORRAK=MOGNAOWDD ATORRAHMOANAO0DD SRRAWK—MNOMIN 
SBC ARRSRE RON DDOSSEHANMODAAROR DOOSSKANMODAAROR OMNAUANRMNS 
DDSI COR 00 00 YA EN FN ON Ne OTOP eT rr kaha Qeehrettees 
AddddddddddddddAddADAADAALALAAR AAAAAAAAAAAAAAA ABARAAAAAAAS 
eae ed . . 2 . =« 22 . i “« ze znxae zxe 
KUM MOADADONASMRRAKNOANAGDOO ATMRARAKNOANATOO SoORAW—MNoOMINn 
SB RAR SRE RB Bab ss SN POCO OR 0000 00-5 FF — IAM ODOAN OR. OOMAARUAUIR MING 
Reet eS Fe ae ROR Dee 0 1 A BOSON. C000 80 0 AO SMM ORO oe te oe 
Pe todd dddddddddadaddchddddddchsdhdddddichddhdddddscichchhdddddickd 
RADAR ARARAA AAD AA AAD AANA NADAS AA AAD ARANDA AANA NDS RANA NANA ANS 
* 7x * am = 7 e -“* 7“ e e ex 22x ad 
MAINO K MON OOF ONAN MAAR NODNATOO PLM AK HODNA GOO POLAVK MINS 
a IAM ONO. 00 9 COUN SS oF AF ROM OOD MOR SOAS FF RK AOMODANOR FFMARAAAR MING 
WVOOR.COOr oe ee V HAC ZOUMIST UNV ORR. #2 oe V AOC BPM TMNORA. #2 eV HAC BT OMMMNOR. COO «+ #* #8 
Deer aeERereea ares ePeresereeevereseeere eases eeEe 
ROAD. AAA DAA AA AAAS AAA A AAA AA AAD DS ANIA A AAD 
oe 3 ci zane z“« 4 zx xx i ae “2 xsxxaxe xe 
AMOK MON OO. SOIR MRA ORK NOD DAS ODARAMRR.ARKNODOATODNADRAURK—ANOMN 
eg ARO odo dO oF FRARMOMANORA DIAS S SOAAMOMANORA SMNAAUAAR MING 
NS Sn Ne aR DORE 8 8 AO LOU SUNDOR.OO 8+ 0 I A OB —MMUAOR.COO # ++ 20 
PE TP t oda Ess ddd ddd addddddddccchaddddcddhdddddddicidchddddcichd 
ADAADAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAD 
* zeae mn xx ze 4 zx xx . s a oe ef a =z az 
MUM aA HKmMoMNwin SONA MR. OH NONDASDOOARAMRAARKNON OD TOONATRAVERAMOMN 
WNDH MAAOMONOS OS FNARAMOMAN ODL OAS FIRRAMONAN OAR F ORAYVAMAMINS 
MOOR. 2 eV HAC LOCUM TUN OOR. OO «+ 20 V Il AC BICOUMTWNOOR. 0 ee WAC BLeH—— MINOR. COO #2 #2 #8 
PECLREPRERE RS ERER OCR E EEE EEE ES EERE eee EEE eer ere ye Perey EE 
AAAPAAAPAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAAAAS 
ceec 2 xsecane zx J x=«* = . ae ze af xx e z= a 
MER DEMONS BORD INIUR TE OND ONS FOUNDED ORS I OOS LAE MAMAS 
Bo eee NINO OR OM OMAR DIAS UO AAR OMAN HAR FS OU ANARAMAS 
NSO PT RRNA DOR 0 V PAS BLAM SINDOR.OD 20 V MAC OLe—e— MIA OR.CO 2+ 2+ v8 
PPP I Eada sss ddd dda ddddadaaccchaddadcdccchadddddcickichcchddddd 
AADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD 
aeernececncxene * = «z«« a =e a ue 3 oe x=«* 
BER RM AAO ns ODOR MOR AAI OOF FOURNIER MND KAA ODT SONATE AUN 
SS RR ee SRN ORR OMAN HAR OURNAOARR OMOANRKAR SONA AUR.NS 
EREUESEEDCERESUUER OER CER EERE CHEE ER OUREE PEER ES EE EER ER EREE. 
ao Addddddddd dd dd dd dddAAAAARAAAAAAAAAAADAAAAAAAAAAAAAAAAAAS 
-—AWnN 
Se a OO oT OSA RN SAAN RANK OMOM ANS ORE OARS 
EPP OE TY TAT PET P STULL LTPP aod tithe 
oo Dddrddddddd dd dADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARD 
, oe ee eee# & 2 a . * ci =f ae we 7 eae & 
PEAK AMODS SO DOME AUN FO PNM UM RK ANOS TOD SEANAD 
$ PORN OK RAMAN VOORROT ON NET RMANVOORL- OT ONT OT RONSUCLARMS 
eRERSERDOCERUCURDRUEEEDeERUCRRY ER. BRAY TAL BES HMO ORE «1 
AAAAAAAAAA AAA SAAAAAAARAAAAAAARADAAARD SAAAAAAAAASAAAAAAAAAD 


1 16 ] 
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9-:69% 9-:69% 9=:69% 9-<85 9-<85 9=<85*% 9=<85* 9-<85*% 9-<85* 9-=05 9-=05 =05* 9=-=05* 9-=05* 
9=-=05* 9-=99 9-= 9-=99 =99 9-=99 9-=99 9-299" 9-299 99-99% e992 e999" e998 Jaa 99* 
=992 93-2992 9 92299% 99-99% 99-99% = = 24 9=>24 9=->24 >24 9=->24 9=>24 9=>24% J=>24e Jo>24e 
9=>24e 9=>24e YJed24e YJo>24e 5 7 9=>24% YJer24e Jer24e Jor2he > 9=->96 >96% FJo>96* 
STN 4-589# 4-59 9-136 9-136 9-136 9-1364 9-19 9-198 9-19 9-1984 9-287 § 7 9-287 99-2874 
9-305 9-30 9-305 9-3054 9-355 9-355 9-35 9-3554 9-37 9- 9-372 9-3728 9-395 9-3 
9-395 9-3954 9-418 9-418 9-41 9-4184 9-464 464 9-464 9-4644 9-488 4 9-4 
9-545 9-545 9-545 09-5454 9-56 9-568 9-568 9=-5684 9-620 9- 20 9-6204 6 
9 9-661 6 9-661 9-6614 9-681 681 9-681 9-6814 9-717 9-717 9-717 9-7174 
9-736 9-736 9-736 99-7364 9-805 9-805 9-805 9-8054 9-842 9-842 2 99-8424 9-893 9-893 
9-893 9-8934 9-919 9-919 9-91 9-9194 9-973 973 9-973 9-9734 9-996 
5 5 5 9-:514 69 9-:69 :69 9=:694 9-324 =; 9-324 9-;248 : 
9-;844 9-<34 9-<34 9-<34 9-<344 9-<55 9-<55 9-<55 9=-<554 9-=03 = =03 =034 
9-=57 =57 9-=57 9-=57H4 Y->22 =>22 9->22 9=>224 9=>44 >44 9=>44 9->444 9-712 9-712 
9-712 9-7124 9-232 9-732 9-732 9=7324 9-286 286 9-786 9-7864 9-a11 9-a11 9-a114 
a76 9-976 9-376 9-a7 9-A05 9-A05 9-A05 9-A05# 9-A45 9-A46 9-A46 9-A73 9-A73 9-A73 
A734 8 9-A75 9-A76 9-A7: 9-A80 9-A80 9-A80# 25-27 
£ 6-04 15-1 15- 15-1* 
STPFLG 6-0F 15-1 15-1 15-1 
6-04 15-1 15-1 15-1 
STRAP 9-23 21-14 
STRAP2 21-1 21-14 
STRP 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 
21-1 21-1 21-1 21=1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 
21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 
21-1 21-1 21-1 21-1 21-1 21-1 21-14 21-14 21-14 21-14 21-14 21-14 21-14 21-14 
21-14 21-14 21-14 21-14 21-14 


STRPAD 21-1 21-14 

STSTNM 6-04 9=136% 9-198% 9-287" 9-305* 9-355% G-372* 9-395* 9-418% 9-464% as + 9-5458 9-568* 9-620* 
9-636% 9-661% 9-681% 9-717% 9-736% 9-B05* 9-842% 9-893* 9-919" 9-973" 9-99 9-:51% 9:69" J=;24s 
9-:B4% 9-<34e 9=<55% Gea03% = 9=57e@ = 9=>22% =e >hGe = 9-712" «==? 52% 9 786* jails 9-a76* 3-a0s= 9-A73* 
10-1* 12-1 12-1 12-1 12-1 12-1* 13-1 13-1 13-1 13-1 14-1 

STTYIN 18-1 18-1 18-1 18-1 18-1 18-14 

STYPBN 


XOFF 15-1 15-1 
$x 15-1 15-1 18-1 
$XTSTR 12-14 
A16 4-6034 
Al7 4-6044 
ADDRIS 9-100 22-114 
ADRERR 9-36 22-44 
AOE 4-6734 


ASR1 7-04 9-53* 9-791 9-821 9-369 9-;69 9-369 9-<19 9-<19 9-<36 9-<36 9-A45 9-A75 


ATO -6 
ATi 4-6914 
AT2 4-6924 


3A 
AT4 4-6944 


ai —) oe 


J 16 
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ATS 4-695# 


9-523 9-523 9-523 9-523 9-547 9-547 9-547 9-547 5 9-599 9-599 
9-622 9-622 ? "647 9-647 3-964 9-663 9-663 9-663 9-663 6 

9-719 9-719 9-719 9-719 9-791 9-791 9-791 9-791 9-791 9-791 9-791 9-791 9-791 
9-791 9-821 9-821 9-821 9-821 9-872 9-872 9-87 9-87 9-87 9-87 9-87 9-87. 8 
9-895 9-895 9-895 9-895 9-895 9-895 9-895 9-95 9-95 9-95 9-95 9-95 9-95 9-953 
9-95 9-953 9-953 9-953 9-953 9-953 9-953 9-953 9-975 9-975 9-975 9-975 9-975 9-975 
9-975 9-975 9-975 9-975 9-975 9-975 9-975 9-975 9-975 30 9-:30 30 

30 30 4 3=9-:30 3= 9-330 9-:30 9-:30 9-:30 30 30 8=—- 9= 30 92:53 99:53 9:53 9:53 


9-369 3769 9-;69 9-<19 9-<19 9-<19 9-<19 9-<36 9-<36 9-<36 9-<36 9-<85 9-<85 9-<85 
9-<85 9-<85 9-<85 9-<85 9-=05 9-=05 9-=05 9-=05 =05 9-=05 9-=05 9-= 9-=99 = 
=99 9-=99 =99 9-=99 9-=99 9-=99 9-=99 9-=99 9-=99 9-= 9-=99 9=>24 9=->24 9->24 
9=>24 9=->24 9=->24 9=>24 9=>24 9=>24 9=>24 9=>24 9=->24 9=>24 9=->24 9=>96 > 9->96 
9-> 9->96 9->96 9->96 9->96 9->96 9-714 9-714 9-714 9-714 9-714 9-714 9-714 9-714 
9-714 9-768 9-768 9-788 9-788 9-956 9-956 9-056 9-356 9-a78 9-a78 9-a78 9-a78 9-A45 
9-A45 9-A45 9-A75 9-A75 9-A75 
ATABIT 9-53 25-184 
NO 9-86 22-94 
BADTMO 9- 9-25 


| 
| 
9-384 9-384 334 | 
9-384 9-397 9-397 9-397 9-397 F443 PnhL3 GUUS — 9-443 9-443 9-466 9-4GGR 9466 9-466 
9-4 9-599 99 9-62 
4-595 4-595# 4-650 12-1 121 13-1 13-1 


B1T09 4-595 4-595# 4-684 12-1 13-1 


b1T1 4-5954 

B1T10 4-5954 13-1 

BIT? 4-595# 12-1 

BIT12 4-595# 

BIT13 4-5954 13-1 

BIT14 4-595# 4-685 12-1 
BIT15 4-5954# 4-686 

BIT2 4-5954 


CHANGE 9-30 9-974 
CHGADR 7-04 9-15* 9-17* 9-97 9-99« 


BPTVEC 4-595# 





CZRNHAO_RM80 DUAL PORT PT1 MACRO 
CROSS REFERENCE TABLE (CREF VO04. 


KCLK 9-57 


11-6 
CKCLK2 11-16 
CKCLKS 11-14 
CKERR 7-04 
9-164" 
9-357 
9-523* 
9-599 
9-719* 
953 
9-975 
9-:30* 
9-;05* 
9-<85* 
9-=99" 
9->24% 
9-714" 
9-A46* 
CKSWR 12-1 
CLOCK 11-10 
CLR 4-6174 
CPSAVE 12-1 
CR 464-5954 
CRLF 4-5954 
22-11 
DCK 4-6794 
DDISP 4-5954 
DF1 8-7 
OF 31 8-126 
DF 36 8-70 
DF42 8-240 
DFS 8-35 
DOFSS 8-317 
DF 56 8-324 
DF7 8-28 
DH1 8-5 
DH11 8-61 
DH13 8-40 
DH22 8-124 
DH23 8-131 
DH26 24-154 
DH3 8-19 
DH31 8-175 
DH36 -68 
OHS 8-26 
DH42 8-238 
DH44 8-252 
DH46 8-266 
DHS 8-33 
DHS5 8-315 
DH56 8-322 
DH57 8-330 
DH7 8-47 
DISPLA 6-04 
DISPRE 5-14 


9-23 


11-64 


9-149 
12-1* 
24-6 
15-1 


9-339 
13-1 
24-9 
15-1 


8-372 


8-365 


K 16 
A io pe 15=JAN-82 07:09:22 PAGE S-9 


9-357 
1 =] 


24-54 


24-64 


9-523 
13-1 
24-13 
22-4 


8-233 
8-205 
8-289 


24-524 


8-203 


9-547 
13-1 
24-15 
22-5 


8-261 
8-212 
8-296 


8-210 


9 
9-a78* 


9-599 


8-217 


9-622 


8-358 





8-346 
24-544 
8-353 


24-198 


———_----— --—--——--- 


SEO 0205 | 


24-514 


16 
CZRNHAO_RM80 DUAL PORT PT1 a 15=+JAN-82 07:09:22 PAGE s-19 
CROSS REFERENCE TABLE (CREF V04.00 ? 


DLT 4-627# 
DMD 4-6834 9-=99 9-299 9->24 9=>24 


DPE 4-7 
DPR 176530 9-164 9-164 9-267 9267 9-289 9-289 9-339 
9-466 3-708 8-208 3% 23 9-547 99-599 9-599 9-599 


9-<8 9-=0 9-=99 9-= 9-=99 9->24 9=>24 9->24 
DRQ e- at take 
DRY 4-6524 9-1 9-164 9-267 9-267 9-289 9-289 9-339 
9-4 9-466 9-46 9-523 9-547 9-599 9-599 9-599 


9-<8 9-<85 9-=05 9-=05 9-=99 9-=99 9-= 9=->24 
ASS 9-A45 9-A75 9-A75 
DSWR 4-595# 9-23 
D 4-7044 


DT1 8-6 8-13 8-62 8-260 8-302 24-324 
DT13 8-41 8-76 8-83 8-281 8-295 8-352 24-374 


ote 8-132 o-133 8-225 8-232 8-274 8-345 24-394 


8-359 24-414 


8-197 8-211 
8-218 24-424 


9 19 
D137 8-69 8-111 8-118 8-204 


I a 
DT5 8-34 22, 8-183 8-288 8-338 8-373 24-344 - 


DT5 8-331 24-484 
DT6 24-354 

DT? 8-27 8-48 8-90 8-97 8-104 8-162 8-366 24-364 
DTE 4-6764 

DVA 4-642# 

DvC 4~-7298 

ECH 4-670# 

ECI 4-74 

M1 8-4 23-34 
EM10 8-53 23-104 
EM11 8-60 23-114 
EM12 8-67 23-124 
EM135 8-74 23-134 
EM14 8-81 23-144 
EM15 8-88 23-154 
EM16 8-95 23-164 











CZRNHAO RM80 DUAL PORT PT1 MACRO yor. 00 15-JAN-82 07:09:22 PAGE sh | SEQ 0207 
CROSS REFERENCE TABLE (CREF V04.00 ) 


EM17 8-102 -178 
EM2 “11 ~44 
E =109 ~184 
EM21 7138 =198 
E ¢ 8-1 “208 
E =1 “28 
EM24 8-13 ~22e 
EM25 8-14 258 
EM26 8-15 ~248 
EM27 -160 *=258 

-18 =S# 
EM30 ae 268 
EM31 8-174 278 
EM32 8-181 ~284 
EM33 8-188 3-294 
EM34 8-19 : O*# 
EMSS 8-20 25-314 
EM36 8-209 23- crf ES 
EM37 $7520 23- FF 
EMG 8-25 23 FF 
EM4O 8-223 $e-3c8 GE 
EM41 8-230 235-354 GE 
EM42 8-237 23-364 GG 
EM45 8-244 23-374 Hk 
EM44 8-251 23-384 I] 
EM45 8-258 23-394 JJ 
EM46 8-265 23 Kk 
EM47 8-272 23-414 Lt 
EMS 8-32 $315 Ll 
EMSO 8-279 3-424 nd 
EM51 e-Se8 23-4 ‘a 
EMS2 8-295 23-444 MP 
EMS3 8-300 23-454 mC 
EMS4 8-307 23-464 MS 
EMSS 8-314 23-478 
EMS6 8-321 23 
EMS7 8-329 23-494 

8-39 23-8" 

8-336 23-504 


EM62 8-350 $3268 
EM63 8-357 23-534 
EM64 8- 3-544 
EM65 -37i why 
EM? 6 oF 


i 
ERR 4-659 9-96 9-969-296-9714 9714 9-714 
ERRUEC 4-305 9-23 9-238 a x SO a 
- = ad ® * * =f = ® - * - - -|* =~ 
EXEC “Uy BRE, "8156 'Sctog 'Sa287 'd-505 9355. «9"372.«« MH 39S—«4IB. «HGH «HBB «9-545 oie. 
9-620 9-636 9-661 © 9-68] 9717-8736 9-803 BAZ BRIS 9919 NTS og gash B89 
5 3 9-22 9=>44 «9-712-232-9286 -al1«=— «9-876 «9A 





Fl 
F 1-835 
F 4-6404 
He ashe 
FMT16 garai 
$=} 
1-1 
4-6 
GTSWR 9-28 
HCE 4-671 
CI 4-7398 
HCRC 4-672 
64-5954 
IAE 4-6744 
IBSAVE 13-1 
IE 4-6014 
ILF 4-6644 
ILR 4-6654 
IOTVEC 4=-595# 
IR 4-6184 
IVC 4-732 
KYBCTL 7-04 
9-372" 
9-620* 
9-842 
9-3 248 
G->44e 
9-A73* 
LBC 4- 
LBT 4-6554 
LF 4-59 
24-21 
LSC 4-7314 
MAXTN 9-84 
MCPE 4-6064 
MDPE 4-6204 
4-7144 
MOL 4-657# 
9-466 
9-647 
9-872 
9-<85 
ru? 
MXF 4-6214 
4-71 
NED 4-6244 
4-62 
NOATA 8-3794 
9-397 
e243 
9-719 
9-872 


CZRNHAO RM80 DUAL PORT PT1 MA 
CROSS REFERENCE TABLE (CREF V 


= 
31-1 


21-14 


15-1 
13-1 





cro yOs 00 15-JAN-82 07:09:22 PAGE ses | 


NUON 
COW— Nw 








CZRNHAO RM80 DUAL 
CROSS REFERENCE TABLE (CREF V 


PIP 


PIRQ 
PIRQVE 
PORTA 


1 
y0s .00 15=JAN-82 07:09:22 PAGE 5-13 


9-357* 


9-895* 9-953" 9-975* 
9-A75* 24-35 24-40 


eprereeererre 
PASTAS GAUSS 








1 
CZRNHAO RM80 DUAL PORT PTI = v04.00 15-JAN-82 07:09:22 PAGE s-14 SEQ 0210 
CROSS REFERENCE TABLE (CREF V04.00 ) 


9-4 3-466 9-4 9-4 9-4 9-4 9-52 9-52 9-523 9-523 9-523 9-523 9-523 
9-5 9-5 3-283 9-5 9-5 9-52 9-54 9-54 9-54 9-547 9-547 9-547 9-547 9-547 
9-5 9-599 9-5 9-5 9-5 9-5 9-599 5 9-599 9-599 9-599 9-599 9-599 9-599 
9-62 9-62 3-be 3-995 3-095 9-62 9-62 9-62 3.968 3-046 9-62 9-647 3-oe 9-647 
9-64 9-64 9-64 9-64 9-64 9-64 9-04 9-64 9-66 9-66 9-697 9-663 
3 9-663 99 9-699 3-999 9-699 9- 3-8 3-937 9- 99 9-719 9-719 
9-719 9-719 9-719 9-719 9-719 9-719 9-719 9-719 9-719 9-791 9-791 9-791 9-791 9-791 
791 9-791 9-791 9-791 9-791 9-791 9-791 9-791 9-791 9-791 9-791 791 9-791 9-791 
9-791 791 9-791 Q- 9-791 9-791 9-821 3-36) 3-88) 3-86) 9-821 9-872 9-872 9-872 
9-87 9-87 9-87 9-87. wa 1h 9-87 9-872 9-8 $ 9-8 $ 9-8 ¢ 9-87 9-872 895 9-895 
9-89 9-89 9-89 9-89 9-89 9-89 9-895 9-89 $-89 9-29 9-89 9-953 9-953 9-953 
9-953 9-953 9-95 9-95 3-338 9-953 9-953 9-953 9-953 9-953 9-953 9-975 9-975 9-975 
75 9-975 9-97 9-97 9-97 9-975 9-975 9-975 9-975 9-975 9--:30 9-:30 9-:30 9-: 
9-:3 a 3 9-:3 38 9-:3 9-:30 9-: 9-:3 9-:30 9-:53 9-:53 753 9-:53 
9-:53 9-:5 Qe 9-:5 :5 9-:5 9-:53 9-: 9-:5 9-;05 9-;05 9-;05 9-;05 9-;05 
9-;05 9-;05 9-;05 9-;05 305 9-;69 9-369 9-369 9-;69 9-69 9-:69 9-369 9-;69 9-369 
<19 9-<19 9-<19 9-<36 9-<36 9-<36 9-<36 9-<36 36 
36 < 9-<36 9-< <85 0-<85 9-<85 9-<85 9-<85 9-<85 9-<85 9-<85 9-<85 9-<85 
> 


PORTAI gu? oun 
PORTB 7 9-38* 9-39« 9-40 9-438 7 9-149 9-149 9-136 9-156 9-1 9-170 9-267 
9-267 9-267 9-267 9-267 9-267 9-267 9-267 9-267 9- $ 9-289 9-289 9-289 9-289 2 
9-289 9-289 9-289 9-339 9-339 9-339 9-339 9-339 9-339 9-339 9-339 9-339 9-357 9-357 
9-357 9-357 9-357 9-357 9-357 9-357 9-357 9-357 84 3 9-384 9-384 9-397 9-397 
9-397 9-397 9-397 9-397 9-397 *~-£63 9-443 9-443 9-443 9-443 9-443 9-443 9-443 3 
(oe ee re Ee oe Be Be Be Be Be be pe Be 
9-547 9-547 9-547 9-547 9-547 9-547 9-54 9-547 9-54 9-547 9-547 9-547 9-599 9-599 
599 9-599 5 9-5 599 9-599 9-599 9-599 9-5 2 9-62 9-62 9-622 9-622 
a Tt rk ke sr rk 7 7 ee 
99 99 9-699 9-699 3-827 9-6 9-699 9-719 9-719 9-719 
9-719 9-719 9-719 9-719 9-719 9-719 9-719 9-791 9-791 9-791 9-791 791 791 
791 791 1 9-791 9-791 Ge 9-791 9-791 9-791 9-791 9-791 791 9-791 
9-797 9-791 aes! 3-8el 3-86) 9-821 9-821 a 1h 9-87 9-87 9-87 9-87 9-872 
9-87, 9-872 9-87 9-8 3 9- : 9-8 $ a8 ¢ 9-895 o-32 9-89 9-89 9-89 9-89 9-895 
9-89 9-895 Gea? 9-39 9-89 9-89 9-89 9-895 9-95 9-95 9-95 9-953 9-95 9-953 
9-953 9-953 9-953 9-953 9-953 9-953 9-975 9-975 9-97 9-97 9-975 9-975 9-97 9-975 
9-975 75 9-975 9-975 9-975 3 9-:3 3-338 a 3-330 3-339 330 9+: 9-:30 
9-:30 9-:53 753 9-:5 9-:5 9-:5 9-: Ge: 9-:5 9-:5 9-:5 9-:53 
9-:5 9-:5 9-;05 9-;05 9-;05 9-;05 9-;05 9-;05 9-;05 9-;05 9-;05 9-:69 9-369 9-369 
369 9-369 9-369 9-:69 9-;69 9-:69 9-<19 9-<19 9-<19 9-<19 9-<19 9-<19 9-<19 9-<19 
9-<19 9-<19 9-<19 9-< 9- $ 9-<36 9-<36 3-36 9-<36 9-<85 9-<85 9-<85 9-<85 8 
aoe woe ne ce ce ce me me te ee Se Fe Sy +S 
= = = = = = = = = = = 
9->24 9->24 9=>24 9->24 9=>24 9=>24 9=>24 3-348 9=>24 9->96 9->96 9->96 9->96 > 
9->96 > 9-> 9-> 9-> 9-714 9-714 9-714 9-714 9-714 9-714 9-714 9-714 9-714 
9-714 9-? 9-? 9-? 9-76 9-768 9-268 9-768 9-248 9-788 9-788 9-288 9-788 9-788 














F 1 
CZRNHAO_RM8O DUAL PORT PT1 ae vw V04.00 15-JAN-82 07:09:22 PAGE S-15 SEQ 0211 
CROSS REFERENCE TABLE (CREF V04.00 ) 


9-? 9-78 9-a5 9-a5 9-85 9-a5 9-85 9-85 oot at 9-85 9-878 86 9-878 =: 9-878 
9-a7 9-37 9-37 9-a7 9-A4 9-A4 9-A4 9-A4 9-A4 9-A4 9-A45 9-A45 9-A45 
9-AG 9-A 9-A4 9-A4 9-A4 9-A45 9-A75 9-A75 9-A75 9-A75 9-A75 9-A75 9-A75 9-A75 





9-A75 YAS 9-A75 9-A75 9-A75 
9-50" 9-51 





RDY 
RELERR 


1 
CZRNHAO_RM8O0 DUAL PORT PT1 — V04.00 15-JAN-82 07:09:22 PAGE s-16 SEQ 0212 
CROSS REFERENCE TABLE (CREF V04.00 ) 


Sze 9=268% 9-268 9-788 9-856"  9-a56* 9-A75* 
RELOK 98-3784 9-267 9-289 9-3604 9-384 

9-647 9-6 9- 

9-878 
RESREG 21-14 
RESVEC 5954 


9-663 
9-<36 
9-A75 


RMBA 
RMCS1 





CZRNHAO_RM80 DUAL POR 
CROSS REFERENCE TABLE (CREF V 


RMDA 


RMDS 


« 


9-289 
9-289 


9-A45* 


9-=99" 


H 
“vay had 15=JAN-82 07:09:22 PAGE S-17 


J->24e 


9-A45* 


J-=99« 


9-A45* 


=99« 





1 
CZRNHAO RM80 DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE s-18 
CROSS REFERENCE TABLE (CREF V04.00 ) 


RMOF 4-770# 9-267 9-267 9-289 9-289 
RMP rae reed 
RMSN 4-769# 3-163 9-171 9-267 9-267 9-289 9-289 


RMWC 4-7584 
RQA 4-6864 
RQB 4-6854 
RQSTA 7-04 
RQSTB 7-04 
VREG 21-14 
4-6 
sco 4-72 
sci 4-7214 
SC 4-7224 
sc -72 
SC4 46-7244 


SCOPE 4-595# 9-178 9-267 9-289 9-339 9-357 9-384 9-397 
9-64 9-663 9-699 9-719 9-791 9-821 9-872 9-895 
9-<19_- 9=<360 9~<85 9-=05 9-=99 9=>24 9->96 = 9= 714 


SEIZPT 7-0# 9=267% 9-289% 9=339% 9-357% 9-384" 99-3974 9-443 
9-663% 9-699" 9-719" 9-791 9-791% =9-791% = 9-B72* = 9 B95* 

t Ja=99e 9=>24% 9=>96% 9-714e 9-268% 9-2788% 

24-38 = 24-39 = 24-40 24-41 24-45 24-46 


SKI 

STACK 4-595# 9-23 9-69 9-136 9-198 9-287 9-305 9-355 
9-568 9-620 9-636 9-661 9-681 9-717 9-736 9-805 

9-:69 9-788 9-; 84 9-<34 9-<55 9-=03 9-=57 9=>22 


9-A05 9-A7 
START 5-1 9-144 18-1 18-1 
START1 5-3 9-174 
START2 9- 9-194 
STKLMT 4-595 


Sw1 4-5954 
Sw 4-595# 
SW14 4-5954 
SwW15 4-595# 9-175 
Sw2 4-5954 
SwW3 4-5954 
W4 4-5954 


SW6 4-595# 


SEQ 0214 


9-547 9-599 9-622 
9-:53 9-;05 9-;69 
9-a78 9-A45 9-A75 


99-5992 9-622*  9-647% 
9-:53% YJe<19e 9o<36e 
9-A75% 2464-36 24-37 
9-464 9-488 9-545 


9-973 9-996 9-:51 
9-786 9-a11 9-876 








CZRNHAO RMBO D 

CROSS REFERENCE TAB E (CREF V04.00 ) 

SwW7 4-5954 

Sw8 4-5954 

Sw9 4-5954 

SwR ay 9-23 9-23 9-23* 
13-1 13-1 13-1 13-1 

SWREG 5-14 oe 9-28 18-1 

TAP 64-7154 

TBITVE 4-595 

TEST1 9-136 9-1 99-1364 

TESTI0 9-418 9-41 9-4184 

TEST11 9-464 9-46, 99-4644 

TEST1 9-488 9-488 99-4884 

TESTI 9-545 9-545 99-5454 

TEST14 9-568 9-568 9-5684 

TEST15 9-620 9-620 9-6204 

TESTI 9-636 9-636 9-6364 

TEST1 9-661 9-661 99-6614 

TEST2 9-198 9-198 99-1984 

TEST20 9-681 9-681 99-6814 

TEST21 9-717 9-717 9-7174 

TEST22 9-736 9-736 9-7364 

TEST23 9-805 9-805 9-8054 

TEST24 9-842 9-842 99-8424 

TEST25 9-693 9-893 9-8934 

TEST26 9-919 9-919 9-9194 

TEST27 9-973 9-973 99-9734 

TESTS 9-287 9-287 9-2874 

TEST 9-996 9-996 9-9 

TEST31 9=:51 9-:51 9-:514 

TEST32 9-:69 9-:69 9-:694 

TEST33 36 93 24 9-324 9-;244 

TEST34 384 9-384 9-;844 

TEST35 9-<34 9-<3 

TEST36 «6. 9=<55 9-<55 9-<554 

TESTS? ©. 9==03 =03 =034 

TESTS 9-305 9-305 9-3054 

TEST40 9-=57 9-=57 9-=574 

TEST41 9=>22 9->22 9=->224 

TEST4 9=->44 9=->44 9->4 

TEST4 9-712 9-712 99-7124 

TEST44 9-232 9-732 99-2324 

TEST45 9-786 9-786 2864 

TEST46 §69-all 9-all 9-a114 

TEST47 9-076 9-a76 9-a764 

TESTS 9-355 9-355 99-3554 

TESTSO 9-A05 9-A05 9-A054 

TESTS1 9-A73 9-A73 9-A7 

TEST6 9-372 9-372 99-3724 

TEST7 9-395 9-395 99-3954 

TESTNO 9-78 22-84 

TIME 7-04 9-267 9-267 9-267* 
9-788 9-788%  9-788* 11-30* 

TIMEA 7-04 9-56* 9-267 9-267 

TIMEAM 7-04 9=-267* 9-267* 9-26 

TIMEAP 7-04 9-56* 9-267 9-267 

TIMEB 7-04 9-56* 9-289 9-289« 


9-23* 
18-1 
18-1 


9-289 


9-768 
9-289* 


11-32* 
9-267* 


9-28 
18-1 
18-1 


9-289 
24-46 


9-056 


J 
UAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE S-19 


9-175 12-1 
18-1* 


9-289 9-339 


12-1 


9-357« 


12-1 


9->96* 


T2-1* 12-1 


9-214 9-268 


SEQ 0215 
12-1* 12-1* 


9-268" 9-268 


ke 
CZRNHAO RM8O DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE S20 
CROSS REFERENCE TABLE (CREF V04.00 ) 


TIMEBM  7-0# onge?* a3 34 9-288 
~O# 9-56* 9-289" 9-289 9-788 9-278 
T 7-04 9-768 9-268 9-768 9-788 9-288 9-788 
TKVEC 4-595# 18-1* 18-1* 
TOL 9-267 9-289 11-424 


a ; 
4-595# 99-23% 9-23* 
ym 3144 9-443 9-466 9-A46 9-A46 9-A76 9-A76 


= 
hae 
am 
@ 
v 
~“ 


S64 
TST17 = - 96614 925-8 
TSTIAA 9-82 9-1334 10-1 
TST 25-8 


TST2 9-736" 25-8 


TST2 9-8054 25-8 
TST24 9-842# 25-8 
TST25 9-89. 25-11 
TST26 9-919# 25-11 
TST27 9-9734 25-11 
TST3 99-2874 25-8 
TST30 9- 25-11 
TST31 9-:514 25-11 
TST32 9-:6 25-11 
TST33 9-244 25-11 
S734 9-; 25-11 
TST35 9-<34# 25-11 
$136 9-<55# 25-11 
TST37 9-=0 25-14 
TST4 9-305# 25-8 
TST40 9-=57H# 25-14 
TST41 9=->224 25-14 
TST4 9->4 25-14 
TST4 9-2124 25-14 
TST44 99-2324 25-14 
TST45 9-286" 25-14 
TST46 9-8114 25-14 

9-a764 

9-3554 25-8 


TST50B 9=A45 9-A45 9-A464 


TST51 9-AS “A 
TST51B 9A? 9-A75 9-A764 
TST52 9-A76 9-A804 
9-3724 - 
TST? 9-395# - 


TSTADR 
‘TSTERR 22-104 


1 


SEQ 0216 


CZRNHAO_RM8O DUAL PORT PT1 MACRO Yoh 00 15-JAN-82 07:09:22 PAGE sz | SEQ 0217 
CROSS REFERENCE TABLE (CREF V04.00 ) 


24-34 24-37 = 24-38 = 24-39 24-41 24-42 = 243 


9-59 9-78 9-103 9-104 
14-1 141 14-1 15-1 16-1 
18-1 18-1 18-1 18-1 18-1 
21-14 


9-357 


9 9->96* 9-714 9-268 
9-768* : 3 3 9-288* 9-056 9-a78* 1-33" 11-35* 11-37* 


9-267 9-289 9-339 9-357 9-384 9-397 9-397 99-443 





CZRNHAO_RM80 DUAL PORT PT1 MA 
CROSS REFERENCE TABLE (CREF V 


G4, 


‘ Ld 
CRO O% -00 15-JAN-82 07:09:22 PAGE S-22 


9-547 
9-791 
9-:30 
9-=05 
9-768 





CZRNHAO RM80 

CROSS REFERENCE 
Sere 
464 
=-5954 
64-5954 
9-636 
9-;84 


3 

> 
rppreprree 
ease 


i 
A 
eee 


a 
uit 
oo 


PPPPP 
Seeeees 


N 
PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE M-1 
ABLE (CREF V04.00 ) 


&-0 


6-0 . 


6-0 6-0 6-0 
9-136 9-198 9-287 9-305 9-355 9-372 9-395 9-41 9-464 9-488 
a 1 9-717 9-7 9-805 9-842 9-893 9-91 9-973 9-996 
9-< 9-<55 9-=03 9-=5 9=>22 9=>44 9-712 9-732 9-786 9-al1 
21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 21-1 
£ 
5-5 
5-1 
5-46 
10-1 
13-1 
14-1 
19-1 
18-1 
20-1 
3424 
17-1 
15-1 
16-1 
4-595 
4-59 
4-77 
4-593 
46-5934 
gne67 9-289 
:30 9-:53 
=99 9=->24 
9-339 9-357 
384 9-397 
149 9-149 3-136 9-156 9-164 9-164 9-164 9-164 9-339 9-339 
9-44 2-263 9-523 9-523 9-547 9-547 9-547 9-599 9-5 
3-95 9-6 § 9-699° 9-719 9-791 9-791 9-872 9-87 9-895 9-89 
9-9 G-9 9-975 9-975 9-:30 9-:30 730 9-:3 9-:53 9-:5 
9-;05 9-;05 9-369 9-369 9-<85 9-<85 9-=05 9-=05 9-=99 9-=99 
9=->24 9=>24 9->24 9->24 3-268 9->24 9=>96 9=>96 9->96 9=>96 
9-a ¢ 9-a78 pass 9-A4 9-A § G-A 
9-44 ae 9-5 9-54 9-64 9-66 9-719 9-791 9-821 
9-<85 9-= G-> 9->96 9-714 9-714 9-768 9-788 9-a56 9-a78 
ae 9-66 
9-872 3-663 
9-114 9-149 9-149 $136 9-136 9-164 9-164 9-164 9-164 9-174 
9-267 9-267 Qe of 9-26 Ge ge of 9-267 9-267 9-267 9-267 
9-267 9-289 9-289 9-289 9-289 9-289 9-289 9-289 9-289 o- 3 
9-289 Qe 3 9-289 9-289 9-289 9-339 Se ? 9-339 9-339 
Ge 9-357 a3 7 9-357 9-357 9-357 9-357 9- 9-384 
9-397 9-397 43 9-443 9-443 9-443 9-443 9-443 4 9-44 
3-268 3-368 3-268 9-4 3-268 9-4 9-4 oe o-2 
9-5 9-5 9-54 9-54 9-54 9-54 9-5 9-54 9-5 Ge 
9-5 9-599 9-599 9-599 9-622 9-622 9-622 9-622 9-622 9-622 


SEQ 0219 
9-545 9-568 
9-:51 9-:69 9-324 
9-a76 9-A05 9-A73 
21-1 21-14 





CZRNHAO_RM80 DUAL POR £R0 503-00 15-JAN=82 07:09:22 PAGE m2" 
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3-963 


rrrrrr 


8 
+ OOeon 


viTit 


9-? 


wou @ ii -- Con 
NIU =—"InOou 
euw —Wounmui 


os 
rs 


CPP PPP PPLE 


2 . 
CZRNHAO_RM8O DUAL PORT PT1 MACRO eh 00 15-JAN-82 07:09:22 PAGE n-3° SEQ 0221 
CROSS REFERENCE TABLE (CREF V04.00 ) 


RELEAS 4-197 9-339 9-357 9-443 9-443 -488 9-4 9-523 9°547 = 95:99 a-6e¢ 9-647 9-663 9-699 
9-719 + 91 9-791 9-791 9-791 8 9-87 9-895 9-895 9-953 9-9 9-:30 9:55 9-<19 
<85 9-205 9299 9299 926 9">26 ALS = AGS = HA75 = HATS 


9-<36 
ne 
SEIZE ae on 9-267 9-289 9-339 9-357 3-443 9-46 9-523 9-547 9-599 9-622 9-647 9-663 9-699 


9-a 
SELECT 4-264# 9-149 9-149 9-15 9-15 9-164 9-164 9-267 9-267 9-267 9-289 3-289 9-289 225 


9-339 9 93399-3359 935 9-35 9-357 = 9"357 93.84 9-397 9-44 9-445 9 9 9-443 
9-443 43 9-466 9-466 9-46 9 9-4 9-466 9-52 9-523 3-253 9-523 9 9-547 
9-547 9-547 9-547 5 9-599 9-59 9-5 9-5 9-599 9-5 2 9-6 3-956 2 
22 9-622 (9-647 0 (9647 9047 = (9663 (9663 =: 9665 3-3 $-$5 9-719 
9-719 9-719 9-719 9-791 9-791 9-791 9-791 9-791 9- 9-791 9-791 9-791 9-791 9-79 
9-87 9-872 9-87 9-87 9-87 9-87 9-872 9-895 9-895 9-895 9-895 9-895 9-895 


30 30 9-:350 30 9-:53 9-:53 9-353 9-:53 3 53 9-305 9-;05 9-;05 

9-305 9-369 9:69 9:69 99:69 9-<19 9-<19 = 9-<36 9-<36 9-<85 9-<85 9-<85 =0 =05 
=05 = = 9-=99 9=>24 9=>24 9->24 9->96 9->96 9->96 9-714 9-214 9-214 ? 

? 9-856 86 9-8560—s«9-78 9-a78 9-A45 9-A45 9-A45 9-A45 9-A45 9-A45 9-A45 9-A45 9-A75 


SLASH 4=595# 

STARS  4=595# 5- 6-0 6-0 9-136 9-136 9-198 9-198 9-287 9-287 9-305 9-305 9-355 9-355 
9- 9-372 9-395 9-395 9-418 9-418 9-464 9-464 9-488 9-488 9-545 9-545 568 
9-620 20 9= 9-636 =: 9-636 6 9-661 9-681 9-681 9-717 9-717) 9"736 9-736 9-805 = 9-805 
9-842 9-842 9-893 9-893 9-919 9-919 9-973 9-973 9-996 9 9-:51 9-:51 9-:69 9:69 
9-324 9-324 9-;84 9-; 84 9-<34 9-<34 9-<55 9-<55 =03 “03 9-=19 =21 9-= = 

=57 =57 9=>22 9=>22 9n>46 9->44 9-712 9-212 9-732 9-732 9-786 (9-786 9-all 9-a11 

te Mt th 9-A05 9-A05 9-A73 9“ A773 9-A78 10-1 12-1 13-1 14-1 15-1 16-1 

SWITCH 4-3714 43 


USEREO 9-A81# 10-1 





